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II. NOTATION 



PNature[t) 


natural pound at time t 


PCulture[>^) 


cultural pound at time t 


Kac[t[t)\ 


acoustical response to the input i(t) 


u ■ r 1 
narmomc[u, n\ 


n Jiarmonic or trie note u 


mi(i/i , V2) 


musical interval among ui and U2 




reicrcncc note 




pitcli 01 the note u 


S{v) 


courier transiorm or the signal s[t) 


D 


tranter tunction ot the human ear 


scale — rangeyv) 


scale-range of the note 1/ 




rescalmg tunction to the scale-range ot u 


a = bmodc^ 


a is congruent to b modulo powers of c 




residue class oi a modulo powers oi c 




set of the residue classes of a modulo powers of c 




n level Euler coordination 




buler s notes 


rEulerXy) 


Euler 's point of v 


c 

^Euler 


Euler 's space 


TT 

^ prime 


4- C 4- J J 77^ 1 ' 

prime vector oi extended buler s space 


\ rjust— tuned 
•'^ Euler 


just-tuned Euler's notes 


(^just— tuned 
'^Euler 


just-tuned subset of Euler's space 


\rPyt— tuned 
■^^Euler 


pytagorically-tuned Euler s notes 


cPyt— tuned 
'^Euler 


pytagorically-tuned subset of Euler's space 


\rn— temp— tuned 
■'^ Euler 


n-tempered-tuned Euler s notes 


(^n— temp— tuned 
"^Euler 


n-tempered-tuncd subset of Euler's space 


k rrii ,n2 .n[i— temp— tuned 
Euler 


ni, 712, 713 -tempered-tuned Euler's notes 


om ,n2,n-i— temp— tuned 
'^Euler 


7ii, 7i2, JT-s- tempered-tuned subset of Euler's space 


in'notes 
^Euler 


canonical notes' basis of Euler's space 


'W?int 
^Euler 


canonical intervals' basis of Euler's space 
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Kf 


fifth comma (pytagorical comma) 


Kt 


third comma fsvntonic comma) 


Kf 


pitch of the fifth comma 


Kt 


pitch of the third comma 


H/ ixte* J. 7 ^ / 


Euler's gradus suavitatis of ui , U2 


/[si • • • 5^1 


index of physical consonance of Si , • • • , 


0J^ ' ' ' '^0 OJr) 


commensurabihtv of a;i , • • • , a;r, 


I\iJ^ ■ ■ ■ UJr, lal 


index of physical consonance among uji . ■ ■ ■ , Un w.r.t. a, 


scale(uj , R) 


scale of u at fixed interval R 


ord({an}) 


ordered permutation of {a„| 




downward closure of the tree t 


TC(s) 


transitive closure of the set s 


support (s) 


support of the set s 


Vafa 
aja 


class of the pure sets 


G 


nodes' set of the graph G 


— 


edges' binary relation of the graph G 


GRAPHS 


proper class all graphs 


D(G) 


decoration of the graph G 


E" 


words of length n on the alphabet E 


E* 


words on the alphabet E 


E°° 


sequences on the alphabet S 




nonrepetitive words of length n on the alphabet S 




nonrenetitive words on the alnhabet E 


—* 

X 


word 


A 


empty word 




length of the word x 


string (n) 


n^^ word in quasilcxicographic order 


\n\ 


length of the n*^ word in quasilcxicographic order 


X 


sequence 


<P 


prefix order relation 




concatenation operator 
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^71 


Ti^^ digit of the word x or of the sequence x 


x{n) 


prefix of length n of the word x or of the sequence x 


x(n, m) 


subword of the sequence x obtained taking the digits from the n*^ to the m}^ 


f" 


word made of n repetitions of the word x 


L J 


i*'* letter of the musical alphabet Z12 


C ■■■ B 


musical notation for, respectively, [0]i2 , ■ ■ • , [11] 12 


y 


translation operator by y 


Inv 


inversion operator 


mode(x , i) 


mode of the word x of i*^ degree 


chord(x , i , n) 


chord of X of i*'* degree at level n 


maxlevel^x) 


maximum possible level of x's chords 


a 


map on words induced by the map g on letters 


1 


translational equivalence relation on words 




inversion's equivalence relation on words 


d(x. v) 


distance among x and y 


I(x) 


interval vector of x 


c 

^greg 


gregorian words 


*-'C/ 


classical words 


Maz 


Mazzola tonalities 


tonality (x , n) 


tonality of the word x at level n 




tonalities at level n 


T 


tonalities 


nyv{t) 


harmonic words of t 


Vit-iAo) 


pivotal degrees of ii, t2 


C(t 1 '^context) 


cadences of t w.r.t. to the context %ontext 


Tn.c. ^-^i 


natural context for tonality{x, n) 


■MC{t , Tcontext) 


minimal cadences of t w.r.t. to the context %ontext 
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SYM{x) 


symmetry group of the word x 


A/fn ^ I 61 69 ) 
* *-iVlQ,Z\^l 5 ^/ 


Mazzola's modulations from ti to ^2 


Mih , to) 


modulations from ti to ^2 


' iVj (IZ 


Mazzola's tonal musical pieces 


MV 


tonal musical pieces 




pytagoric musical alphabet 


\i\12 

L J 


i*'^ letter at the n*'* cycle of S 


C(n) 


musical notation for, respectively, [0]i2 i ' ' ' i [ll]i2^ 


L J12 


2*^ letter at the n*^ cycle of of the just-intonation alphabet 


^(n) ^(n) 
just ' ' just 


musical notation for, respectively, [0] ^2^ • • • , [11] ^2^"'"** 


rpPyt 
z 


pj'tagoric translation by z 




pytagoric inversion 


c+ 


fifth cycle's raising 


c_ 


fifth cycle's lowering 




pytagoric translation's equivalence relation 




pytagoric word 


pw[x, n) 


pytagoric word of x at cycle n 


q-Pyt 


pytagoric tonalities 


% 

n 


pytagoric tonalities at level n 




pytagoric harmonic words of t 




pvtagoric pivotal degrees of ti , to 


^ V ' context J 


pytagoric cadences of t w.r.t. to the context T^yj^^f 


^ , -^context/ 


pytagoric minimal cadences of t w.r.t. to the context T^^L^^ 




pytagoric modulations from ti to t2 




pytagoric comma-modulations from ti to t2 




pytagoric tonal musical pieces 


tl r^K t2 


tl is a comma-displacement of t2 


Si ~p S2 


Si is P-metamere to S2 




P- valence of s 
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III. INTRODUCTION 



No example could be given of the radical dichotomy existing nowadays among Science 
and Humanities as the intellectual analysis on the structure of Contemporary Music. 

Let us start analyzing the overwhelming confusion existing in most of the discussions 
concerning the concept of musical consonance. 

The correct conceptual approach would consist in distinguishing among the following two 
notions: 

• physical consonance: a known phenomenon in Acoustics concerning a particular math- 
ematical structure of some patterns of sounds played simultaneously 

• esthetic consonance: the set of esthetic rules codified by a given Harmomy, i.e. by a 
given human formalization of the admissible patterns of simultaneous sounds 

As a matter of principle, no reason exist in assuming that esthetic consonance has to be 
constrained by physical consonance: 

is the natural phenomenon of animals tearing to pieces themselves in the jungle an index 
of the fact that we should make the same ? 

Indeed a great peculiarity of the human specie consists in that it has developed Culture: 
a certain (continously evolving in time) amount of information. 

Our behavior is, conseguentially, determined nowadays both by Nature and by Culture, 
with relative proportions p Nature and pcuiture evolving with time as: 

PNature\J^) T PCulture it) = 1 (3.1) 
dp Nature 



dt 

dpc'ulture 



< (3.2) 

> (3.3) 



dt 

The estimation of the contributions of p Nature and pcuiture is, typically, a matter of great 
discussion among researchers, each one tending to over-estimate the role of its own research 
area. 

It should be said, with this regard, that the colossal amount of sloveliness shown by "hu- 
man scientists" whenever they try to adopt precise, rigorously defined scientific notions 0|, 
0] streghtens scientists' common opinion that nothing serious is going on in their exponential 
productions of words without an underlying rigorous mathematical language. 
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This state of affairs occurs, first of all, in all the analyses by Human Scientists concerning 
the old question: " is music ^ a language "? 

Let us observe, with this regard, that a misconception of the mathematical notion of 



language, i.e. the semantical side of Mathematical-Logic based on the notion o 
formal system about which I demand to the Appendix G.5 "Formal Logic" of 



model of a 
or to the 



10*'^ chapter "Geometric Logic and Classifying Topoi" of has led some musicologists 
(cfr. e.g. the second chapter "L'occidente cristiano e I'idea di musica" of the first part "I 



problemi estetici e storici della musica" of ll|) to see a mutual exlusivity among conceptions 



based on the link music-poetry (with an emphasis to the emotional valence of this latter) 
and conceptions based on the link music-mathematics (with an emphasis to formal aspects); 
since the semantical side of Mathematics allows, as a matter of principle, to encode both 
intrinsic musical meanings and extrinsic musical meanings 1^ . such a misconception lacks 
of any conceptual ground. 

An ever more catastrophic situation occurs, anyway, as to the application of Information 
Theory to Esthetics: 

that the esthetic level of an art of work is someway related to its amount of informa- 
tion is something very intuitive; the lack of mathematical rigor in many attempt to apply 
Information Theory to Esthetics ^ kept the scientific community away from the whole 
matter. 

This is a pity since, whenever applied in a serious way ^, Information Theory could allow 
to get some insight, e.g. through the following footsteps: 



^ The idle issue concerning the definition of the term music has led to curious theoretizations (we could 
call them mafious esthetics) such as the one expressed in |8j according to which the esthetical value of a 
work of art depends on whether the artist has paid the required percentage to the suitable corporation 
that conseguentially attributed to him the social status of artist, this fact determining, for example, that 
4'33" by John Cage, whose score is : " I TACET ; II TACET ; III TACET" is an avant-garde masterpiece 
instead of being a fraud; according to these curious esthetics Bach, Mozart and Beethoven weren't great 
composer owing to the fact they produced great music: they composed great music, by definition, owing 
to the fact that they were composers 

^ and more generally the plethora of nonsense written by " social scientists" on speaking about information 
and codes (cfr. e.g. the cap.l "L'universo dei segnali" and the cap. 2 "L'universo del senso" of|lJ| or the 
cap. 5 "La famigha dei codici" of 0| based on the ravings about codes and Eco's s-codes of 

^ A particular analysis should be made as to the section 3.10 "Peculiarita e struttura statistica del messaggio 
musicale" of (13] where an inconsistent dichotomy among the techno- semantic component and the esthetic 
component of information is introduced 
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1. Shannon's probabilistic information has to be adopted to quantify the information's 
amount of an art of work relative to some cultural data, its absolute, intrinsic infor- 
mation's amount being quantified by its Kolmogorov-Solomonoff-Chaitin's algorithmic 
information ; for example the cultural data of Tonal Harmony may be codified as 
a probability distribution on the space of monophonic musical pieces w.r.t. which the 
pieces containing chromatic notes not belonging to the diatonic scale of the underly- 
ing tonality are strongly less probable than pieces not containing alterations and have, 
conseguentially an higher probabilistic information relative to Tonal Harmony though 
their absolute, algorithmic information is not higher 

2. the esthetical value of an art of work, seen as a function of its amount of information 
I, has the following qualitative behavior: 



i.e. it is very low as / ~ (e.g. no one would consider the telephone "free-signal" as 
a musical masterpiece), it increases monotonically as I increases reaching a maximum 
after which it becomes to decrease tending to zero for maximal information (no one 
would consider a random art of work an esthetical masterpiece). 

Since also the physical complexity of an object, quantified by Bennett's notion of logical 
depth [2^, have such a qualitative behavior as a function of the information, one 
could be tempted to conjecture to consider physical complexity as an approximate, 
empirical quantitative measure of esthetical value, giving a firm foundation to the 
many speculations about the inter-relation among Esthetics and Complexity (as to 

^ A good example of such a kind of information-theoretical esthetical estimation is given by Gerard Hoff- 
nung's not too flattering cartoon about Webern's music [l9| 
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Music consider, for example, the debate about the complexity of contemporary music 

n 

and Xenakis' notion of mass [22,] ) 

Returning to the issue of estimating the relative pounds p Nature , Pcuiture in eq J3.1l let 
us observe , furthermore, that the increasing rule of the cultural pound, anyway, cannot 
delete the fact that the production, the propagation and the reception of musical sounds are 
physical phenomena occurring in Nature and described by the Laws of Acoustics. 

The confusion among the concepts of esthetic consonance and of physical consonance has 
unfortunately led the overwhelming majority of the existing literature to make confusion 
between two completelly different issues: 

1. the issue whether the phenomenon of musical consonance has a physical ground 

2. the issue whether a positive answer to the previous issue would imply constraints on 
the Harmony's rules as to esthetic consonance 

The confusion among these two, logically independent issues has: 

• led some scientists to claim that the fact that Atonal Music is based on a notion of 
esthetic consonance differing from physical consonance more than Tonal Music implies 
that Atonal Music is esthetically inferior than Tonal Music 

• led some musicians to forget that the codification of new Harmonies with new esthetic 
consonances cannot delete the fact that physical consonance is a physical phenomenon 
occurring in Nature ^ 



It is interesting, at this point, to observe 



that many of the supporters of both the 



naturality and the esthetical superiority of Tonal Orthodoxy identified in Andreas Werck- 



^ a celebrated exposition of this argument was expressed, curiously, in "Human Sciences" by Claude Levi- 
Strauss, the father of all the discussions concerning the antinomy Nature versus Culture, in the " Overture" 
of 13 where he critizes the attitude by Pierre Boulez and many "serial thinkers" , of forgetting and 
deleting the existence of what he calls "the first level of articulation" ; it should be observed, with this 
regard, that such a charge cannot be ascribed to Arnold Schonberg himself who clearly expressed, cfr. 
the cap. 12 "Valutazione apoUinea di un epoca dionisiaca" of j^l and the here cited analysis contained 
in the 7*'* section "Sospensione ed eliminazione della tonalita" and the 8*^ section "La scala cromatica 
come fondamento della tonalita" of the 19*'' chapter "Alcune aggiunte e schemi che integrano il sistema" 
of that his theory of dissonance's emancipation considered dissonances as farer consonances in the 
sequences of harmonics 
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meister's j^] introduction ^ of the chromatic equally-tempered scale the first semen of the 
atonal heresy, as it is condensed in the following sentence by Paul Hindemith about the 
discovery of the equable-tempering: 

"Anyone who has ever tasted the delights of pure intonation by the continual displacement 
of the comma in string- quartet playing , must come to the conclusion that there can be no 
such thing as atonal music, in which the existence of tone relationship is denied. The 
decline in the value placed upon tonality is based on the system of equal temperament, a 
compromise which is presented to us by the keyboard as an aid in mastering the tonal 
world, and then pretends to be the world itself. One needs only to have seen how the most 
fanatical lower of the piano will close his ears in horror at the falseness of the tempered 
chords of his instrument, once he has compared them a few times with those produced by a 
harmonium in pure intonation, to realize that with the blessing of equal temperament there 
entered into the world of music - lest the bliss of musical mortals be complete - a curse as 
well: the curse of too easy achievement of tone- connections. The tremendous growth of 
piano music in the last century is attributable to it, and in the "atonal style" I see its final 
fullfillment - the uncritical idolatry of tempered tuning"; (cited from chapter 4 "Harmony", 

section 10 "Atonality and Polytonality" of 131]) 

It is precisely this point that makes the whole subject interesting. 

To show the inconsistence of argumentations, such as Molly Gustin's one js^ waved in 
23[, claiming to furnish a mathematical proof of the esthetical superiority of Tonal Music 
on Atonal Music would be a trivial and non interesting matter if it didn't lead to the further 
conceptual step of appreciating that: 

1. Classical Tonal Harmony is itself invalidated by a mathematical inconsistence 



® We adhere here, for simplicity, to the common attribution; from an historical perspective, anyway, we 
recall that the final Werckmeister's codification was significantly preceded by a plethora of other authors 
jcfr . e.g. the third section "Necessita del temperamento" of the third chapter "I rapporti fra i suoni" of 

^ As remarked by Pierce |3o| both the thesis here supported by Hindemith according to which the players 
of arc-strings instruments adopt natural intervals in their solos as well as the thesis often opposed to it, 
i.e. the thesis claiming that they adopt well-tempered intervals seems to have been falsificated by concrete 
measurements: measurements show that the players of arc-strings instruments adopt nor natural neither 
well-tempered intervals 
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2. such a mathematical inconsistence affects the same formahzation of the concept of 
Tonal Music, 

3. the issue is deeply linked with the causes and the effects of Werckmeister's revolution 

4. it corroborates Schonberg original viewpoint according to which Atonal Music was not 
a revolution but simply the last step in an historical process begun centuries before 
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IV. ON THE MUSICAL RELATIVITY THEORY 

The passage from Special Relativity to General Relativity 
passage from the: 



may be formalized as the 



AXIOM IV. 1 

PRINCIPLE OF SPECIAL RELATIVITY 

All the laws of Physics are the same in all the inertial frames 

to the: 

AXIOM IV.2 

PRINCIPLE OF GENERAL RELATIVITY 

All the laws of Physics are the same in all the frames 
Each of the two principles leads, in the respective theory, to the corollaries: 
Corollary IV. 1 

COROLLARY OF SPECIAL NON-INFERABILITY 

No experiment allows an observer enclosed in a box to infer which is the particular inertial 

frame of the box 

Corollary IV.2 

COROLLARY OF GENERAL NON-INFERABILITY 

No experiment allows an observer enclosed in a box to infer which is the particular frame 

of the box 

Let us now suppose to pass from Physics to Music through the following: 
TABLE OF ANSATZS: PHYSICS MUSIC: 



Physics 


Harmony 


frame 


scale 


inertial frame 


diatonic scale 
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One obtains two musical theories consisting in a set of contraints about the laws of 
harmony, the Special Theory of Musical Relativity and the General Theory of Musical 
Relativity ^, based, respectively, on the following principles: 

AXIOM IV.3 

PRINCIPLE OF SPECIAL MUSICAL RELATIVITY 

All the laws of Harmony are the same in all the diatonic scales 

and: 

AXIOM IV.4 

PRINCIPLE OF GENERAL MUSICAL RELATIVITY 

All the laws of Harmony are the same in all the scales 

Driven by the analogy one could be immediately tempted to conjecture that axion ilV^l 
and axion jrvTH imply the following: 

Corollary IV.3 

COROLLARY OF SPECIAL MUSICAL NON-INFERABILITY 

A listener cannot infer the particular diatonic scale of a tonal musical piece 

Corollary IV.4 

COROLLARY OF GENERAL MUSICAL NON-INFERABILITY 

A listener cannot infer the scale of a musical piece 

® these theories shouldn't be confused with the Henry CoweU's "Musical Relativity Theory" exposed in 
1930 by the author in Q| (curiously the stimulating locution "Musical Relativity Theory" wasn't used 
by Cowell as a title for any of his many writings jssf) that constitutes a completely different thing about 
which I will return later 
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A conceptual bug, anyway, inficiates the passage from axion iTvTsl and axion JIV!4l to. respec- 
tively, corollar\ ll V. 31 and corollar\ ilV.41 it implicitely assumes that the natural pound p Nature 
of eq ]3.H as to the net effect on the listener, vanishes, a fact that we know to be false. 

Let us leave aside, for a moment, such a conceptual bug precisely in order of looking 
where it would take us. 

The adoption of the Special Relativity Theory and, hence, the imposition of corollar\ IIV.4l 
would then consist in the revolution realized by Andreas Werckmeister's equable-tempering 
who deleted the particular "colours" of the different tonalities ^ and was, for this reason, 
strongly opposed; as it is well known a determinant factor to the victory of Werckmeister's 
ideas was the support they received from Johann Sebastian Bach's Well-tempered Clavier 
each of whose two books (respectively BWV 846-869 AND BWV 870-893 " ) is made of 24 
couple of preludes and fugues in each of the 24 ionic and aeolian tonalities . 

Exactly as the passage from Special Relativity to General Relativity consists in deleting 
the existence of a special, privileged class of frames (the inertial ones), the passage from 
Special Musical Relativity to General Musical Relativity would be the departure from Tonal 
Harmony consisting in deleting the existence of a special, privileged class of scales. 



^ E.g ., as reported by H. Keller in the section "II carattere della tonalita nel Clavicembalo Ben Temperato" 
|3y|, D Major was thought to be the tonality in which arcs are most shining, G minor was associated in 
Baroque to the pompous music of official situations, the preferred tonality for pastoral music was F major 
in the North and G major in the Sud etc. (for a more detailed historical analysis cfr. the fourth section 
"Differenze espressive nel mondo tonale" of the fifth chapter "Tra senso e metafisica" of |2^) 
It must be recalled, anyway, that from an historical point of view, it is not clear whether Bach referred to 
the equable-tempering, to the third, usually denoted as Werckmeister-III, of the six temperings introduced 
by Werckmeister or to something else (cfr. the section 7.3 "Scale temperate" of and the third section 
"Necessita del temperamento" of the third chapter "I rapporti fra i suoni" of j29j) 

such an indexing of the tonalities has led Piergiorgio Odifreddi, in the title of his divulgative article 37 
to talk of their " well- numbering" ; such an indexing is, obviously, recursive, its concrete implementation 
on computer being given by the Miscellaneous - Music standard package of Mathematica as well 
as by the Mathematica expressions PlayScale and PlayChord described in [i^. One could indeed think 
to go further comparing the notions of well-tempering and well-ordering; since the tempering operation 
consists in requiring the closure of the circle of fifths after 12 steps, i.e. in altering the dynamics on the 
circle transforming it from a quasi-periodic one to a periodic one by distributing, in a suitable way, the 
pytagorical comma (the difference among 12 pytagorical fifths and 7 octaves, equal to the difference among 
enharmonic notes in the pytagorical scale), such a procedure results in the passage from a non- numerable 
infinity of different tonalities to a finite number of different tonalities; while, before tempering, a well- 
ordering of the different tonalities is possible only assuming the Axiom of Choice, i.e. in an intrinsically 
non-constructive way |4o'|, the tempering's procedure transforms the well-ordering of different tonalities 
into a constructive, and as we have seen even recursive [4l] |. business 
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A first step in this direction follows Guerino Mazzola's observation j^] Pl Q| that the 
mathematical structure underlying the concept of tonality, whose intuitive content may be 
summarized as: 

1. the existence, at each instant of time, of a tonal centre around which the musical 
discourse gravitates 

2. the changes of the tonal centres are performed by Modulation Theory codifying them 
as symmetry transformations 

is well larger than the classical notion of tonality characterizing 24 particular ways of grav- 
itating around the tonal centre; a first enlargement of the notion of tonality consists in 
passing from the notion of classical-tonality to that of gregorian-tonality considering all the 
84 modes of gregorian music as distinct tonalities; the elimination of any constraint in the 
characterization of the way of gravitating around the tonal centre leads to a further radical 
enlargement of the notion of tonality obtained introducing the notion of Mazzola's tonality 
and taking into account all the 792 Mazzola's tonalities. 

A partial passage from the Special Musical Relativity Theory to the General Musical 
Relativity Theory would then consist in replacing the axion JIVTsl with an analogous Principle 
of Special Musical Relativity referred to such a generalized definition of the notion of tonality. 

It must be observed, with this regard, that nobody has composed yet a sort of " Gener- 
alize well-tempered clavier" , i.e. a collection of two books of ordered musical composition, 
each book consisting of an ordered collection of musical compositions in all these possible 
"generalized tonalities". 

As I will show later, anyway, the notion of Mazzola tonality may itself be generalized 
further. 

Returning now to the mentioned conceptual bug, it allows immediately to explain why 
cor II V. 31 is trivially false: 

our psycho-acoustic perception of sound is absolute and not relative: the level of sonorous 
sensation (phon), the level of subjective sonorous sensation (son) , the critical band, the 
subjective height (mel) and many other phycho-acustic physical quantities depend on the 
frequency (cfr. e.g. the cap. 4 of j23|, the cap. 7 of [s^ and the cap. 3 of it is not 

surprising that the phenomenon of perfect pitch (the ability of some people to identify a 
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single note without a reference to an external diapason) is an experimental evidence that 
falsificates cor lIV.3l 

The contribution to p Nature of all these psycho-acoustic factors is, anyway, strongly lower 
than the contribution of an external acoustic factor: the role of harmonics, whose discussion 
requires a brief report on the foundations of Acoustics. 
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V. ELEMENTS OF ACOUSTICS 

Demanding to j3| for any further information let us recall that from a 

physical point of view, a sonore signal is codified by the associated-function s : M i-^ M 
such that s(t) expresses the ratio among the perturbation at time t produced by the sonore 
signal in the pressure of a fixed point of the propagating medium and the Pascal (the unity 
measure of pression in the International System I will assume from here and beyond). 

A sonore signal s(t) may be seen, more precisely, as the acoustical response: 

s[t] = TZacm] (5.1) 

(in pression) of the medium to an input i{t) produced by some sonore source. 

The functional acoustical response TZac is usually, nonlinear; beside in the phenomenon of 
combinational notes I will discuss in section IVll the deviation from linearity of the acoustical 
response is neglibible, having no physical relevance 

It is then natural, in these cases, to assume the validity of the following: 

AXIOM V.l 

PRINCIPLE OF SUPERPOSITION: 

7^ac[Al^l(t) + ■ ■ • + Xn^n{t)] = Al7^,e[^l(^)] + ■ ■ ■ XnTlacKit)] (5.2) 

A sonore signal will be said to be a sound if its associated function is periodic, 
the note of a sound of period T is then defined as the frequency of its associated function 
u := ^. 

Given two notes z/i and 1^2 with ui < V2 
DEFINITION V.l 

MUSICAL INTERVAL AMONG vi and z/2: 

mi(z/i , z/2) := — (5.3) 
^1 



The introduced distinction among linear and nonlinear acoustic response is, obviously, of a more general 
nature, as it can be appreciated introducing the mechanical and electric equivalents of an acoustic system 
and looking at non-linear acoustic response functions in terms of resistors with non-linear characteristic 
(cfr. e.g. the sectionl.6 "Analogic elettriche, meccaniche ed acustiche" of 44] and the 10*'* chapter 
"Differential equations for electrical circuits" of (46j'l 
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Fixed once and for all a reference note Uref (e.g. by the assumption Uref '■= C; 



132Hz adopted in the appendix 2.3 "Frequency and Glissando " of 
DEFINITION V.2 
PITCH OF THE NOTE u (IN CENTS): 

P{'^) ■= j^^log(mi(i^, i^re/)) (5.4) 

A sound of frequency u is said to be pure if its associated function s(t) is a trigonometric 
function, i.e. it is of the form s{t) = A sin(27rz/t) or s(t) = A cos(27rz/t), the positive factor 
A G M+ being called the amplitude. 

By Fourier transform any sonore signal may be seen as the uncountable infinite super- 
position of pure sounds of any possible frequency: 

Theorem V.l 

FOURIER DECOMPOSITION OF A SONORE SIGNAL 

poo 

s{t) = / diy{a{fi) cos{2tt fit) + 6(27r/it) sin(27ryut)) d/i (5.5) 
Jo 

where the two functions: 

/ + 00 
dts{t) cos(27r/xt) (5.6) 
■oo 

and 

r+oo 

b{fi) = / dts{t)sm{27ffit) (5.7) 



are called the Fourier components of the sonore signal 

If the sonore signal is itself a sound of note v , furthermore, theoren fV.il immediately 
implies that: 

1. only a countable infinity of pure sounds contribute to its Fourier components 

2. the notes of this infinity of Fourier-contributing pure-sounds (called the harmonics of 
the sound) , are the multiple integers of the note of the considered sound 

as is stated by the following: 

Corollary V.l 
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HARMONIC DECOMPOSITION OF A SOUND: 

oo 

a(/x) = a„5(i/ — n/x) (5.8) 

n=0 

oo 

W = J2^nS{iy-ni^) (5.9) 

n=0 

It may be useful, a this point, to introduce the following: 
DEFINITION V.3 

HARMONIC SEQUENCE OF THE NOTE u: 
the sequence of notes {harmonic{i',n)}^neN+}'- 

harmonic{v,n) :— {n+l)u (5.10) 

I will adopt, from here and beyond, the usual complex representation of harmonic motion, 
representing a sound s{t) := '-^ + X^^i(an cos(ncL''t) + b{n) sui{nujt j) through the complex 
function: 

+00 

s{t) := Yl ^ne'"^' (5-11) 



where: 



f, ifn = 0; 



, if n>0; (5.12) 



2 

if n < 



dropping the tilde from here and beyond. 

As to arbitrary sonore signals, furthermore, I will adopt, from here and bejond, the 
analogous complex representation of Fourier integrals: 

/ + 0O 
di/5(i/)e2^^"* (5.13) 
-oo 

/ + 00 
dts{t)e-^^'''' (5.14) 
■oo 

The concept that a sound is the composition of other sounds is the source of much con- 
fusion, that may be completelly avoided taking strongly into account the following remarks: 

1. the amplitude of a pure sound, ruling the intensity of the involved pressure- wave, may 
be seen as a parameter measuring its volume 
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2. 



the only harmonic contributing to the harmonic decomposition of a pure sound with 
note u is u itself 



3. if the amplitudes of two pure sounds are, roughly speaking, of the same order of size, 
they are perceived by our ears as two distinct sonore signals. 

4. if the amplitudes of two pure sounds are, roughly speaking, of different order of size, 
our ears perceive them as a unique sonore signal whose associate function is the sum 
of the associated functions of the two pure sounds 

5. the reason why the pure-sounds contributing to the harmonic decomposition of a non- 
pure sound are perceived as a unique sonore signal is that the amplitude a„ and bn 
decrease enough quickly as n grows, as is implied by the Bessel's inequality: 



so that, for different values of n, they are always of different order of size 
The real situation is, anyway, more complex since: 

1. any concretely occurring sonore signal has finite support, sounds are just a mathemat- 
ical idealization not occurring in reality 

2. one usually adopts the previously introduced metaphorical locution according to which 
our ears hear the harmonical components of a sonore signal; the human auditory 
anatomic behavior is not that of a computer getting from the ear device the input 
consisting in the whole specification of the function s(t) and after that computing its 
whole Fourier transform 

These observations have led Guerino Mazzola (cfr. the 2*^ chapter "Topography" and the 
IS*'^ part "Sound" of jol), referring to Jean Molino's scheme concerning the three-parts a 
musical communication's stream is made of: 

Among all the physical nonsense of Schonberg's analysis about harmonics in the first section of the fourth 
chapter of this is a point in which he makes trivially false statements ending up with the "harmonics 
of harmonics" and the involved regressum ad infinitum (SIC!) 




(5.15) 



22 



Poiesis the production of music by a creator 
Neutral Niveau the transmitted musical message 
Esthesis the reception of the musical message by a listener 

to contest the traditional viewpoint of Acoustics giving for granted that the notions of note 
and pitch belong to the neutral level. 

Mazzola doesn't anyway seems to appreciate the role of the Theorem of Tonal Indeter- 
mination we are going to introduce. 

Given a sonore signal s(t) let us introduce the following probability distributions over: 
(M, B{R)) 

Ps{t) := ^ (5.16) 

Psi'^) ■■= ^ (5.17) 
where, owing to Parseval's equation, one has that: 

/+00 p+ca 
dt\sit)\^ = / du\S{iy)\'' (5.18) 
-oo J —oo 

It may be proved that (cfr. the section 5.10.6 "Sul concetto di trasformazione" of the 5*^* 
chapter "La trasmissione dell'informazione" of jjjl, the appendix N-3 "Analytic Signals and 
the Uncertainty Relation" of the section 8.10 "The Uncertainty Principle" of the 
section 19.4 "Wavelet transformation" of 49] and the part D "Wavelet Analysis" of 0|) 
that: 

Theorem V.2 

THEOREM OF NOTE'S INDETERMINATION: 
HP: 



s{t) = Ot^±^{t) (5.19) 

TH: 



S(M) denoting the Borel-fi-algebra of ] 
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AtAu > — (5.20) 
where At and Au are the standard-deviations of, respectively, the probabihty distributions 

inniandEni 

The conceptual deepness of theoren JV.2l was fully analyzed by Dennis Gabor who: 

1. conjectured that is may be seen as a particular case out{t) = in{t) of an information- 
theoretic indetermination's theorem generalizing to arbitrary channels with band- 
width AB such that: 

supp{T{uj)) = Au (5.21) 

Nyquist's criterium: 

ABAt = constant (5.22) 

on the minimum temporal distance At among two Dirac-delta's impulses such that 
they can be distinguished at the output of a Nyquist channel, i.e. a channel with 
transfer function: 

T{u) := = |A(o;)|e-^^(-) (5.23) 



In{uj) 



with: 



A{uj) = { (5.24) 
0, otherwise. 

^/aP{uJ) = uJto (5.25) 

2. understood its role in determining the invariance of the acquired information in any 
signal's analysis performed by a central computational unit (e.g. the human brain) 
with an inner time-clock At getting the sound s(t) through the sampling performed by 
a device (e.g. the human ear) with linear transfer function T>l whose band-width 
is less or equal to the one admitted by Nyquist's criteriur ri5.22l for sampling; 
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Exactly as the acoustical response of the medium, the transfer function of the human ear may be decom- 
posed in its linear and non linear parts: 

V ^ Vl + Vml (5.26) 

T^NL conspires together with the nonlinear part of the medium acoustic response to generate the non- 
linear effects such as combinational tones discussed in the section IVTI and many other effects about which 
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such an invariance follows, precisely, from the fact that the Gabor's transformation 
of the signal (that I am going to introduce) saturates eq lV.21 i.e. it respects it with 
the equal sign, so that its time-frequency representation is constitued of rectangular 
windows of linear dimensions (2-^0, and hence of constant area A = 2. The 
concept's of Gabor transformation is based on the idea that, if one is interested in 
getting the local-information about a signal localized around the time t = 6 it is 
reasonable to generalize the Fourier's tranform introducing into it a localized gaussian 
weight-function centered around t = b. The generalization of this concept to a more 
general class of possible small localized weight-functions led Jean Morlet to introduce 
the following notions: 

DEFINITION V.4 

MOTHER WAVELET: 

a function ip G L^(]R) such that: 



where, according to our general notation, \l/(z/) denotes the Fourier transform of ipit)- 
Given a mother wavelet iJj: 

DEFINITION V.5 

WAVELET GENERATED BY ^: 



we demand to the 3 chapter "L'orecchio e la percezione del suono" of |4J|, to the appendix B "Auditory 
Physiolosy and Psychology" of 9] or the text enterely ddvoted to such issue. Exactly as to the acoustcial 
response, we will ignore from here and beyond the physical effect involved with Vnl not being relevant 
for the issue discussed in this paper; we will furthermore refer to this approximation as the assumption 
of the following generalization of axion fvm i.e.: 




(5.28) 



AXIOM V.2 



EXTENDED PRINCIPLE OF SUPERPOSITION: 



V o 7^ac[Al^l(^)+ ••• +Xnin{t)] 



XlV O TZacMt)] +■■■ XnV O TZacMt)] 



(5.27) 



25 



the two parameter family of functions {'ipa,b{'t)}bm,a(^M.-{o} given by: 



V'a.feW := ^^(^) (5.29) 
a 2 a 



DEFINITION V.6 

WAVELET TRANSFORM W.R.T. ^ OF / e L^iR): 

/ + 00 
dtf{t)r{t) (5.30) 
-oo 

We can at last introduce the following: 

DEFINITION V.7 

GABOR TRANSFORMATION: 

the wavelet tranform generated by a gaussian mother wavelet 

It is important to stress that, though the Mathematics underlying theoren fV.2l is exactly 
that of the particular application of the Heisenberg's Indetermination Theorem in Quantum 
Mechanics: 

< a|(Ai)2(AS)> > > ^1 < a\[A,B]\a > I' (5.31) 

to the couple of observables position and momentum x , p^^, the issue is quite different from 
a physical point of view; it should be mentioned, with this regard, that the adoption of the 
quantities At and Au as measures of the uncertainty in, respectively, time and frequency of 
a sonore signal s(t) is someway arbitary, since no physical ground exists in the assumption of 
the involved probability, respectively, distributions Ps{t) and Ps{i^) mathematically assumed 
by mimicking the probability distribution of quantum-mechanical wave-functions. 



I would like to advise the reader that in chapter "La trasmissione deirinformazione" of 0| it is 
erroneously stated that theorerr lV.2l iniDlies the indetermination's relation time and energy therein referred 
as Heisenberg's Principle. As stressed by any elementary Quantum Mechanics' manual (cfr. e.g. the 
section 5.6 "Teoria perturbativa dipendente dal tempo" of 52]), anyway, the indetermination's relation 
time and energy^ inferred in the framework of first-order perturbative theory, is conceptually radically 
different from Heisenberg's Principle; in particular, time is not an observable in Quantum Mechanics as it 
is significantly testified by the conceptual bugs one has to face on trying to define a q uantum clock about 



which I demand to section 12.7 "The measurement of time" of |53|, as well as to 



)n trymg to aenne a q uantum c 
0, as well as to and 
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The standard deviation of Ps{i^) is, anyway, certainly a better measure of the uncer- 
tainty in frequency of s(t) than the semi- distance among its first two zeroes of a function 
only approximating 5'(z/) that has been adopted in the section 3.3 "Pacchetti d'onda. Inde- 
terminazione tonale" of on the basis of the section 12.7 "Pacchetti d'onda. Velocita di 
gruppo " of :56] . 

Let us now return to the information-theoretical point of view to Music briefly introduced 
in sectior Um taking into account, for simplicity, the production of a monofonic musical piece 
made of notes of the same duration: 

such a musical piece may then be seen as a string or as a sequence on the alphabet ]R_)_ 
of all the possible notes. 

Since: 

card{(R+y) = 2™'^'^('*+) = 2^^ = K2 (5.32) 



card{{R+D = 2""'''^«^+)*) = K3 (5.33) 

both considering terminating and nonterminating musical pieces one has that the set of all 
the possible musical messages has a cardinality higher than the continuum one, i.e. is made 
of "a more than continuously infinity" of possible musical executions with the consequential 
troubles as far as codification of musical messages is concerned. 

This simple consideration allows to understand why, from the beginning of its structurally 
organized formalization of Music, humanity tried to limit the space of the possible musical 
messages introducing strongly smaller alphabets. 

Different cultures pursued this goal in different ways: the structural similarity of the 
obtained results, anyway, is a very strong evidence of the role that the common underlying 
Laws of Nature had in such a process. 

We have touched, at this point, the key argument of this paper enclosed in the following: 

Question V.l 

QUESTION ON THE "MORE NATURAL MUSICAL MESSAGES" DETERMINED BY 
THE HARMONIC SEQUENCES 

At which extent does the "naturality" of the harmonic sequences determines 
the "naturality" of some particular musical messages ? 
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The naive answer to questior lV.il one usually reads many times is the following: 

Answer V.l 

THE NAIFE ANSWER: 

The natural role played, in the Laws of Nature, by the first five harmonics 
determines the Nature-induced maximally consonant triad: the major triad 

Since, as I will extensively discuss, the naife answei lXTTl is false, let us proceed more 
carefully starting to discuss, first of all, the "natural" role of the first harmonic. 

A strong empirical evidence of its pervasivity in different cultures strongly leads to assume 
the following: 

AXIOM V.3 

AXIOM OF PERCEPTION OF REPETITION FOR THE FIRST HARMONIC 

the natural role played in the Laws of Nature by the first harmonic is such 
that, given a sequences of notes {t'njneNj the sequence of notes {harmonic{vni l)}neN 
is perceived as a repetition of the sequence {i'n}n(^n ^in higher range 

Axion JVTSl plaved a basic role in all the ways in which different cultures constructed scale 
of notes they adopted as musical alphabet; conseguentially, in all cultures, a basic role was 
played, in such a construction, by the following notion: 

DEFINITION V.8 

SCALE RANGE OF A NOTE v. 

scale — range{v) := [v , harmonic{v^ 1)] (5.34) 

Let us now observe, that assuming the axion JvTsl the construction of any kind of scale of 
notes starting from a note v may be limited to its scale range: outside the scale range 
everything is simply repeated by multiplying each note of the considered scale for a suitable 
power of two. 

Contrary, any note lying outside the scale range of v may be rescaled to it by dividing it 
for a suitable power of two. 

These operations may be easily performed through the following: 
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DEFINITION V.9 



RESCALING FUNCTION TO THE SCALE-RANGE OF u: 

the function R^, : M+ — scale — rangeiv) ^ 1R+ identified by the following 



• for /X < V : 

with: 
1. 

2. 

3. 

• for // > 2v : 

1. 
2. 
3. 



fM e N 
2/-(m) ■ i_i > u 

2-^(m) . < 2u 



Some simple consideration leads to the following: 
Lemma V.l 

EXPLICIT FORMULA FOR THE RESCALING FUNCTION: 



2 ^ l°s2 ^ ' ■ n it n < U , 

2 log 2 ) . ^ if > 2i/. 
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PROOF: 

• for /X < u : 

passing to the logarithms in the disequahties one obtains that: 

fM e [AM.M^A + ^) (5-44) 

where: 

log^ - logi/ 

^.(/.) = (5.45) 

The thesis immediately follows imposing the constraint that fv{lj) has to be integer 

• for /X > 2v : 

passing to the logarithms in the disequahties one obtains that: 

fM e [AM, AM + I) (5.46) 

where: 

The thesis immediately follows imposing the constraint that fv{^j) has to be integer 

■ 

Both the scale-range of a note u and the rescaling function to its scale-range may be 
computed through the following Mathematica's expressions: 

harmonic [nu_,n_] :=(n+l)*nu 

scalerange [nu_] :=Interval [nu, harmonic [nu, 1] ] 

rescalingtorange[nu_,mu_] := If [mu < nu, 

mu*Power[2, IntegerPart [Times [Log [mu] - Log[nu] , Power [2, -1]]] + 
1] , If[mu>2nu, 

mu*Power [2 , -IntegerPart [Times [Log [mu] -Log [nu] , Power [2,-1]]]] , 
"undefined"]] 
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taken from my Mathematica 38| noteboook Mathematical Music Theory reported in the 
sectiorlXl 

The rescaling function allows to introduce the following useful generalization of Congru- 
ence Theory j57|: 

given three real numbers a, 6, c G M: 

DEFINITION V.IO 

a IS CONGRUENT TO b MODULO POWERS OF c ( a = 6 modc^): 

3neZ : a = bmodc'' (5.48) 



DEFINITION V.ll 

RESIDUE CLASS OF a MODULO POWERS OF c: 

[a]cz := {xGM : X = amodc^} (5.49) 
For c e N we can introduce, furthermore, the following: 
DEFINITION V.12 

SET OF THE RESIDUE CLASSES MODULO POWERS OF c: 

Z^z := [a],z : a G [0, c - 1] (5.50) 
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VI. HORIZONTAL AND VERTICAL RULES IN TONAL HARMONY 



Tonal Harmony is made of two ingredients: 

VERTICAL RULES IN SCORES The theory of physical consonance among sounds 
inside a fixed tonality, ruled according to the following: 

AXIOM VI.l 

AXIOM OF THE NATURALITY OF ESTHETICS: 

esthetic consonance = physical consonance (6-1) 

The existence of a physical acoustical reason underlying the phenomonological evidence 
that certain couples of notes are perceived by our ears as consonant, i.e. the net 
acoustical input sounds good, while other couples of notes are perceived by our ears 
as dissonant, i.e. the net acoustical input sounds bad, was first suggested in 1638 by 
Galileo Galilei |^ in the following famous passage: 

"SALVIATI: ■ ■ ■ Returning now to the original subject of discussion, I assert that the 
ratio of a musical interval is not immediately determined by the length, size, or 
tension of the strings, but rather by the ratio of their frequencies, that is, by the 
number of pulses of air waves which strike the tympanum of the ear, causing it also 
to vibrate vith the same frequency. This fact established, we may possibly explain why 

certain pairs of notes differing in pitch produce a pleasing sensation, other a less 
pleasant effect, and still others a disagreeable sensation. Such an explanation would 

be tantamount to an explanation of the more or less perfect consonances and of 
dissonances. The unpleasant sensation produced by the latter arises, I think, from the 
discordant vibrations of two different tones which strike the ear out of time. 
Especially harsch is the dissonance between notes whose frequencies are 
incommensurable; such a case occurs when one has two strings in unison and sounds 
one of them open, together with a part of the other which bears the same ratio to its 
whole length as a side of a square bears to the diagonal; this yelds a dissonance 
similar to the augmented fourth or diminished fifth. 
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Agreeable consonance are pairs of tones which strike the ear with a certain regularity; 
this regularity consists in the fact that the pulses delivered by the two notes, in the 
same interval of time, shall be commensurable in number, so as not keep the ear 
drum in perpetual torment, bending in two different directions in in order to yeld to 
the ever-discordant impulses " . from part I46-I47, pagg. 103-104 of f^/ 

We see that: 

• Galileo didn't know the phenomenon of harmonics and made the error of thinking 
that strings produce pure sounds 

• he identified the source of the physical consonance between these supposed pure 
sounds in the condition of commensurability of their frequencies (and the conse- 
quent regularity of the tympanum's soUecitation) . 

The first attempt of furnishing a quantitative measure of physical consonance was 
performed by L. Euler Q through the introduction of a function gradus suavitatis 
expressing the degree of consonance among two notes in terms of the "simplicity" of 
their ratio. Even more remarkable, was , anyway, the introduction of the space on 
which the gradus suavitatis is defined, that I will call, following Mazzola (cfr. the 15^^ 
part "Sound" of ^1) the Euler 's space. 

Gixen an integer positive number n eN and denoted by 71(2) the i*'^ prime number: 
DEFINITION VI. 1 

n-LEVEL EULER' S COORDINATION 

the map Cn ■ M" 1— >• M: 



n 



Cnixi,--- ,Xn) := l[7r{tp (6.2) 

1=1 

One has that: 
Lemma VI. 1 

ON THE INJECTIVITY OF EULER'S COORDINATIONS: 
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1. Cn is not injective 

2. c„|q« is injective 



PROOF: 



1. the set c^^{y) of the counterimages of a positive real y e [0 , +oo) is given by 
the solutions of the following equation: 

n 

= y (6.3) 



i=l 



I.e.: 



or: 



Xi log7r(i) = logy (6.4) 



i=l 



logy - Er=i log 7^(0 

log7r(l) 



so that: 



card{c-\y)) = > 1 (6.6) 

2. let us proceed by induction: 

• proving the injectivity of C2- 

since the integer solutions of the equations: 

2^13^2 = 22^13^2 (6.7) 

are the same of the equation: 

^^^ = -log2 3 (6.8) 

the thesis immediately follows by the fact that is rational or undeter- 
mined while — log2 3 is irrational 

• proving that the injectivity of c„ is implied by the injectivity of c„_i: 
since by the inductive hypothesis: 

card{c;,\{y)) < 1 Vy G [0, 00) (6.9) 

to prove that: 

card{c-^{y)) < 1 Vy e [0, 00) (6.10) 
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it is sufficient to show that: 

(7r(n)^" = 7r(nf") ^ = (6.11) 
But this is a trivial consequence of the bijectivity of the exponential function 



DEFINITION VI.2 

EULER'S NOTES: 

^Euler ■■= {l^refCsix) , X E Q^} (6.12) 

Given an Euler's note u the lemma lVLT] allows to introduce the further notions: 
DEFINITION VI.3 
EULER'S POINT OF u : 

VEuleril^) ■■= C,\^) (6.13) 
Kef 

DEFINITION VI.4 

EULER'S SPACE: 

SEuler := VEuler{J^Euler) = Q' (6.14) 

One has clearly that: 

Theorem VI. 1 

1. SEuler is a linear space on the field Q 
2. 

VEulerM = (0,0,0) (6.15) 
VEuleri'^yR) = (1,0,0) =: 6 (6.16) 
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VEuleri^l^R) = (0,1,0) =: q (6.17) 
VEulerill^R) = (0 , , 1) = £ (6.18) 

The passage from points in Euler's space to the associated pitchs can, by construction, 
be obtained through the following: 

Theorem VI. 2 

FROM EULER POINTS TO PITCHS: 

P(«^) = logl'2) -^P"'"^ ■ C^Euleril^)) (6.19) 

where: 

Hprime := (log(2) , log(3) , log(5) ) (6.20) 

is called the prime vector 
Remark VI. 1 

ON THE PLANE ORTHOGONAL TO THE PRIME VECTOR IN THE EXTENDED 
EULER SPACE 

Introduced the: 
DEFINITION VI.5 

EXTENDED EULER SPACE: 

^Euilr ■■= {xd + yf + zi,x,y,zeR} = (6.21) 
the theoren JVI.2l implies, obviously, that: 
Corollary VI. 1 

36 



p(z/) = Hprime ■ (VEuleriiy) + E) \/E G H^,,^^ , Vz/ G AfEuler (6.22) 

Since as a function from ]R_|_ to M p(z^) is obviously an injective function, one could 
get a moment of surprise as to the corollar WI. II and erroneously be led to think that 
an Euler note is represented by many Euler points. 

CoroUar WI.ll is, instead, simply nothing but a consequence of the lemmg lVLTI stating 
that Euler's coordination, defined on the extended Euler's space, is not injective 

DEFINITION VI.6 

CANONICAL NOTES' BASIS OF EULER SPACE: 

:= {dJ-J} (6.23) 

The chosen names for versors in the definitior lVI.6l is owed to the fact that: 

1. 6 is the Euler point of the note being distant an interval of octave from i^n 

2. / is the Euler point of the note being distant an interval of perfect fifth from i/r 
(both in pytagoric and in just tunings, concepts that we will introduce later) 

3. t is the Euler point of the note being distant an interval of major third from 
(in just tuning, a concept we will introduce later) 

Let us then consider some following important subsets of Euler notes and the corre- 
sponding subsets of representative Euler points in Euler's space: 

DEFINITION VI.7 

JUST-TUNED EULER NOTES: 

A/i:t" := {i^refCsix),xeZ'} (6.24) 

DEFINITION VI.8 

JUST-TUNED SUBSET OF EULER'S SPACE: 

'^ej/e^*""^'' ■= 'PEuleri.M^EuV'"''^'^) = {XoO + Xff + Xft : Xo,Xf,Xt G Z} (6.25) 
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DEFINITION VI.9 

PYTAGORICALLY-TUNED EULER NOTES: 

■ACI/""'' {Vref Csix^d + Xff) , X,, Xf G Z} (6.26) 

DEFINITION VI. 10 

PYTAGORICALLY-TUNED SUBSET OF EULER'S SPACE: 

Given an integer number n G N: 
DEFINITION VI. 11 

n-TEMPERED TUNED EULER NOTES: 

J^n-tern,-tunea ^^^^^ ^^^X ^^^^^^ ^g_28) 

DEFINITION VI.12 

n-TEMPERED-TUNED SUBSET OF EULER'S SPACE: 

c^w— temp— tuned /t-> / « rw—temp—tuned\ 17^ ^ la on\ 

^Euler - VEuleANEuler ) = (6-29) 

Given three integer numbers 711,712,^36 N: 
DEFINITION VI. 13 

7ii,7i2,n3-TEMPERED- JUST-TUNED EULER NOTES 

j^,,n^n,-terap-iust-tuned _ ^^^^^ _^ ^ ^ ^ ^ ^gg^^ 
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DEFINITION VI. 14 

rii, 722, rig-TEMPERED- JUST-TUNED SUBSET OF EULER'S SPACE: 

Qni,n2,n3— temp— just— tuned ^ / \ fni,n2,n3— temp— just— tuned\ (a 01 \ 

^Eulev '■- l-^EuleAJ"^ Euler ) [p-61) 

It is important, at this point, to observe that Euler's space Ssuier niay be used not 
only to denote notes but interval among notes. With this respect is is then useful to 
introduce the following: 

DEFINITION VI. 15 

CANONICAL INTERVALS' BASIS OF EULER SPACE: 

KLr ■= {d,f-d,i-2d} (6.32) 

whose elements represents, respectively, the octave interval, the perfect fifth interval 
and the major third interval. 

Let us then introduce two intervals whose theoretical relevance will soon appear: 
DEFINITION VI. 16 

FIFTH COMMA (PYTAGORICAL COMMA): 

Kf ■= -7o + 12(/- 6) (6.33) 



DEFINITION VI. 17 

THIRD COMMA (SYNTONIC COMMA): 

Kt := 26 - 4(/-6) + (t - 26) (6.34) 

Applying the theoren fVI.2l one finds that: 

Kf := PiV^li jKf)) ^ 23.A6 Cents (6.35) 
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Kf ■.= p{VELr{Kf)) ^ -21.61 Cents (6.36) 

Let us now analyze how all the previously discussed modulo-octave stuff appears in 
the framework of Euler space. 

The computations about Euler's space may be performed using he following Mathe- 
matica expression of the mentioned notebook of seclXl 

eulercoordination[x_List] := 

Product [Power [Prime [i] , Part [x , i] ] , -[i , 1 , Length [x] }] 

FROMeulerpointTOnote [eulpoint_List] : = 

ref erencenote*2"Part [eulpoint , 1] *3"Part [eulpoint , 2] *5"Part [eulpoint , 3] 

FROMnoteTOpitch[nu_] := Times [1200, Power [Log [2] ,-!]] 
*Log[nu] -Log [Times [nu, Power [ref erencenote , -1] ] ] 

FROMpitchTOnote [pitch.] := 

ref erencenote*Exp [Times [Log [2] , Power [1200,-1] ] *pitch] 

Hprime=Table [Log [Prime [i] ] , {i , 1 , 3}] ; 

FROMeulerpointTOpitch [eulpoint_List] : = 

Times [1200 , Power [Log [2] , -1] ] *Dot [eulpoint , Hprime] 

lastpartisequaltosomethingQ [x_ , something.] : =Equal [Last [x] , something] 
rationalsupto [n_] : =Flatten[ Table [Rational [i , j] , {i , 0,n}- , {j , 1 ,n}] ] 
FROMindexTOrational [index_ ,n_] :=Part [rationalsupto [n] , index] 
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FROMlistof indicesTOlistof rationals [list_,n_] := 

Table [FROMindexTOrational [Part [list , i] ,n] ,{i, 1, Length [list]}] 

FROMnoteTOeulerpoint [nu_,n_] := 

FROMlistof indicesTOlistof rationals [ 
First [generalizedselect [ 

Flatten [Table [ {{i,j,k}, 

Dot [{Part [ rationalsupto [2] , i ],Part[ rationalsupto [2] , j] , 

Part [ rationalsupto [2] ,k ]},Hprime]},{i,l, 
Length [ rationalsupto [2] ]}, {j , 1 .Length [ rationalsupto [2] 

]},{k, 

1, Length [ rationalsupto [2] ]}],2] , 
lastpartisequaltosomethingQ,FROMnoteTOpitch[nu] ] ] ,n] 

FROMwordTOlistof eulerpoints [w_] := 

Table [FROMnoteTOeulerpoint [Part [FROMwordTOscale [w] , i] ] , {i , 1 , Length [w] }] 
octaveepoint={l,0,0}; f ifthpoint={0, 1,0}; thirdpoint={0,0, 1}; 

canonicalnotesbasis :={octaveepoint ,f ifthpoint .thirdpoint} 

canonicalintervalsbasis :={octaveepoint ,f if thpoint-octaveepoint , 
thirdpoint-2octaveepoint} 

Euler's formalization of the consonance's issue was based on the introduction of the 
following function: 

given a positive integer number x e N+, the Theorem of Prime Factorization assures 
the existence and the unicity of a sequence {e„}„gN^ of positive integer numbers such 
that: 

1- {en}neN+ ends with a countable infinity of zeros, i.e.: 

3Ar e N+ : ( e„ = Vn > A^) (6.37) 
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2. 

Jj7r(n)^(") (6.38) 



oo 

X = 

n=l 



DEFINITION VI. 18 

GRADUS SUAVITATIS OF THE POSITIVE INTEGER x: 

OD 

Geui{x) := 1 + 5^efe(7r(A;) - 1) (6.39) 

k=l 

Given a positive rational number r G Q+ we have by definition that: 

3!(p,g)eN^ : [x = - and gcd{p,q) = 1) (6.40) 

Q 

We can consequentially generalize the definition I VI. 181 in the following way: 
DEFINITION VI. 19 

GRADUS SUAVITATIS OF THE POSITIVE RATIONAL x: 

GEuiix) := Geui{p ■ q) (6.41) 

The definition IVI.19I may be then applied to the ratio of Just-tuned Euler notes re- 
sulting in the following function 

DEFINITION VI.20 

GRADUS SUAVITATIS OF BICHORDS OF JUST TUNED EULER NOTES: 

the map GeuI : ^ZL'''^"' x ^i,"!;*""^'' ^ N+ : 

Geui{i^, y) ■■= Geui{-) (6.42) 

/i 

As it has been observed by Mazzola, since the higher is the consonance the lower is the 
value of the gradus function, GeuI should be more properly called gradus dissuavitatis: 

the total ordering < euI of dissonant intervals induced by definition IVI.20I 

1 <Eui 5P <Eui 4P <Eui 3M =Eui 6M <Eui 3m 

=Eui 6m =Eui 2M <Eui 7m <euI 

7M < 

Eul 2m < Eul 5° (6.43) 
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where I have adopted the standard musical notation for fourth and fifth perfect (P) as 
well as for major (M) , minor (m) and diminished (o) intervals; this can been directly 
verified through the following expression of the mentioned Mathematica notebook of 
sectiorlXl 

gradussuavitatis [n_Integer] := 

1+Sum[ ( FactorInteger[n] [[i]] [[!]]-!)* Factorlnteger [n] [ [i] ] [ [2] ] 

Length [Factorlnteger [n] ] }] 

gradussuavitatis [r_Rational] : = 
gradussuavitatis [ 

Times [Numerator [r] *Denominator [r] , 

Power [GCD [Numerator [r] , Power [Denominator [r] ,2]] , -1 ]]] 

The next step in the history of the comprehension of physical consonance was made 
in 1877 by Hermann L. F. Helmhotz in his masterpiece js^ whose conclusions are 
condensed in the following passage: 

"When two musical tones are sounded at the same time, their united sound is 
generally disturbed by beats of the upper partials, so that a greater or less part of the 
whole mass of sound is broken up into pulses of tone, and the joint effect is rough. 

These exceptional cases are cold Consonances. From the Part II: "On the 
interruptions of harmony", cap. 10: "Beats of the Upper Partial Tones", section 



'Order of Consonances with respect to Harmoniousness" , pagg. 194-197 of 15 § J 



"When two or more compound tones are sounded at the same time beats may arise 
from the combinational tones as well from the harmonic upper partials. In Chapter 
VII it was shown that the loudest combinational tones resulting from two generating 
tones is that corresponding to the difference of their pitch numbers, or the differential 
tone of the first order. It is this combinational tone, therefore, which is chiefly 
effective in producing beats" From the Part II: "On the interruptions of harmony" , 
cap. 11: "Beats due to combinational tones" pagg. 197-198 of 15911 
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To explain Helmholtz's point of view it is essential to distinguish among interference 
phenomena prescribed by Linear Acoustics and the nonlinear combinational effects 
owed to violations of the axiom WA] 

let us suppose to have two distinct sonore sources ii{t) and i2it) suet that each one, 
from its own, would produce, if it was alone, respectively the sounds: 

si{t) := TZacHt)] = aie^"^* (6.44) 

and 

S2{t) := TZacMt)] = a^e'^^' (6.45) 

LINEAR REGIME Assuming the linearity of medium's acoustic response, i.e. the 
axiom WA\ it follows that: 

S{t) = nac[ll{t) + l2{t)] = = nac[ll{t)] + TlacMt)] 

= si{t) + S2{t) = aie'^i* + a2e'"2* (6.46) 



Posed: 



and: 



it follows that: 



where: 



Auj := UJ2 — uji (6.47) 

ai = \ai\e'''" (6.48) 

as = \a2\e'''" (6.49) 

s{t) = a(t)e^^i* (6.50) 



|a(t)| = a/IqiP + |a2p + 2|ai| \a2\ cos(0i - 02 - Acu)) (6.51) 

and: 

Ara(a(t)) = arctanf '^''^'^^^ + |a2| sin(02 + A ^ t) 

>i|cos(0i) + lasi cos(02 + Acjt)^ ^ ' ' 

The qualitative behavior prescribed by equation eq J6.5()| eq J6.51l and eq l6.52l is 
with some respect similar to that of an amplitude modulation in which an har- 
monic carrier signal of pulsation ui is modulated by an harmonic envelope signal 
of pulsation Aa;. 
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Though similar, the signal described by eq ]6.5Ul eg 16. 511 and eq ]6.52l is not an 

amplitude modulating signal that would have not only spectral component ui + 
Au but also spectral component Ui — Auj. 

NON LINEAR REGIME 

Since, usually the acoustical response of the medium may be expressed as the sum of 
a linear and nonlinear part, one has that: 

sit) = nacMt)+i2it)] = 7^^J^l(t)+^2(^)] + 7^^/[^l(t)+^2(t)] 

= 7^^J^l(t)] + n^acMt)] + nZ%it) + t2{t)] (6.53) 

It may be worth observing that, in the nonlinear regime, one has to give up the complex 
representation of harmonic motion since: 

^K'm + 7^:/[^(^)] (6.54) 

Combinational tones arise when the non linear part of the acoustical response function 
is given by the product of the two input signals. 

One has that 

= Si{t) ■ S2{t) = ai COs(cJit + 0i) ■ 02 COs(cJ2t + 02) 

= cos[(a;i + UJ2) + (01 + 02)] + cos[(a;i - UJ2) + (0i - 02)] (6.55) 

Consequentially the net acoustic response consists not only of the two notes with 
pulsations ui and 002 but also of other 2 notes with pulsations ui + 002 and ui — UJ2. 

HORIZONTAL RULES IN SCORES The theory of dissonance resolution inside a 
fixed tonality and the theory of modulation ruling how to connect different tonali- 
ties 
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VII. VERTICAL RULES REQUIRE THE COMMENSURABILITY OF NOTES 

Given two sounds: 

+00 

Slit) = Yl (7-1) 

n=— 00 
+00 

s^{t) = Yl «n^e^'^"'* (7-2) 

n=— 00 

let us formalize the original Galilei's viewpoint mixed with a bit of Helmotz, and let us 
consider the etymology of the term consonance: we are led to select the harmonics of the 
two sounds that are commensurable. 

DEFINITION VII. 1 

PHYSIGAL INDEX OF GONSONANGE AMONG si and 53: 

+00 +00 

/[S1,S2] '■= Y ^ ^Kronecker{nUJi+mUJ2){a!;^^ +a^^^) (7.3) 
n=— oo m=—oo 

where: 

I 1, if a; = ; 

< (7.4) 
I 0, otherwise; 

DEFINITION VII.2 

ui AND UJ2 ARE COMMENSURABLE { ui -q ): 

^ e Q (7.5) 

Theorem VII. 1 

GONSONANGE REQUIRES THE GOMMENSURABILITY OF 2 NOTES: 

coi oOq 0J2 =^ I[si,S2] = (7.6) 

More generally, given N sounds Si ■ ■ ■ s^: 

+00 

Si{t) = J2 «n^e'"^'* i = l,--- N (7.7) 
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DEFINITION VII.3 

PHYSICAL INDEX OF CONSONANCE AMONG si ■ ■ ■ sn- 

+00 A'' N 



I[S1 , • • • Sjv] ^ SKroneckeri^i^iTli) O^*^) 

ni,--- njv=— 00 i=l i=l 

DEFINITION VII.4 

ui ■■■ cun are commensurable {cui ~q • • • ~q a;jv ): 

AT 

3ni ■ • ■ njsf e Z : = 

i=l 

Theorem VII.2 

CONSONANCE REQUIRES THE COMMENSURABILITY OF N NOTES 

Ui oOq ■ ■ • oOquJn ^ I[si, ■ ■ ■ ,Sn] = 

DEFINITION VII.5 

MUSICAL INSTRUMENT: 

00 

a = {anjnez e C°° : ^ a„a_„ < +00 

n=— 00 

Given N notes cui ■ ■ ■ cu^ and a musical instrument a: 
DEFINITION VII.6 

PHYSICAL INDEX OF CONSONANCE OF a;i • • • 0;^^ W.R.T. a: 

+00 +00 

n=— 00 n=— 00 

Example VII. 1 
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PHYSICAL CONSONANCE OF NOTES W.R.T. A OF PURE OSCILLATOR: 
A pure oscillator is, by definition, a musical instrument of the form: 



ttn := aSn,k (7-13) 

Then: 

, 2 a, if = u!2 

I{uJi,uj2\an) = { (7.14) 
0, otherwise. 



Example VII.2 

PHYSICAL CONSONANCE OF NOTES W.R.T. AN IDEAL MUSICAL INSTRUMENT 
The exampl jVII.il shows that, as to the possibility of generating consonants sounds, a 

pure oscillator is the most inefficient musical instrument: the only consonant notes it can 

product are unisonous ones. 

Looking at definitior lVII.6l it should be clear why, contrary, an ideal instrument, i.e. 

the most efficient musical instrument as to production of consonance, is one in which the 

amplitudes of higher harmonics decades in the slowest possible way; we are then led to define 

an ideal musical instrument by the condition: 

an := - (7.15) 

n 



Then: 



I{uJi,uj2\an) = { (7.16) 
0, otherwise. 



We would like to advise the reader that the wrong expression given in the 6 chapter 
of 



23| for the physical index of consonance among two commensurable notes with ratio of 
frequencies ^ with gcd{m, ra) = 1 is based on the erroneous procedure of defining I up to an 
infinite constant (the harmonic serie). 
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VIII. HORIZONTAL RULES REQUIRE THE INCOMMENSURABILITY OF 
NOTES 



The theory of dissonance resolution inside a fixed tonahty and the theory of modulation 
ruling how to connect different tonalities are based on the same central structural element: 

the scales at fixed interval: 

given two positive real numbers lui , R & M+: 

DEFINITION VIII. 1 



SCALE OF oui AT FIXED INTERVAL R: 

scale{uji , R) := {<^n}n=i : 



ujn — Rwn-imod{2^) n — l,---,N 

min{n G N : cun — mod{2^)}, if min{- • • } exists 
+00, otherwise 



N 



(8.1) 
(8.2) 



N < +00 



DEFINITION VIII.2 



scale{uji , R) IS FINITE 



We have that: 



Theorem VIII. 1 



FINITENESS VERSUS THE IRRATIONALITY OF THE FIXED INTERVAL: 



(8.3) 



scale{uji , R) is finite <^ ^ 



PROOF: 



(8.4) 



The thesis follows immediately by the fact that: 



^/2^QVneN:n>2 



(8.5) 



Corollary VIII. 1 
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FINITENESS VERSUS THE INCOMMENSURABILITY OF NOTES: 

scale{u!i , R) is finite -v^ Ui 'S-q uj i ^ j < N (8.6) 
PROOF: 

It is sufficient to verify that ~(Q is an equivalence relation and hence, in particular, is tran- 
sitive ■ 

Let us now observe that the notes in a scale at fixed interval scale{uJi , R) don't occur in 
order of increasing frequency; given a string or a sequence of real numbers {a^} 

DEFINITION VIII.3 

ORDERING OF {a„}: 

or(i[{a„}] = {dn} := permutation{{an}) : i < j ^ di < aj (8.7) 

Example VIII. 1 

PYTAGORIC SCALE OF cji: 

The pytagoric scale of a note is constructed following the natural cycle of fifths, i.e. the 
cycle of fifths assuming as fifth interval the one specified by the second harmonic of Ui equal 
to 3: 

pytagoric(uJi) := scale(uji , 3) (8.8) 
By theorem IVIII. II it immediately follows that pytagoric scales are always infinite. 

Remark VIII. 1 

ORDERING THE PYTAGORIC SCALES GLOBALLY OR AT FIFTH CYCLES BLOCKS 
Let us observe that: 

■n(^Nord{scale{uref,S)n,n+u) 7^ ord{scale{uref , 3)) (8.9) 
a fact, this one, we will see more concretelly in the section IVlIII 



Example VIII.2 
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N-EQUALLY-TEMPERED SCALES OF uji. 

The N-equally-tempered scale of oji is constructed following theN- equally-tempered cycle 
of fifths, i.e. the cycle of fifth adopting as basic fifth interval a value different from the one 
specified by Nature through the third harmonic, chosen in order of obtaining the periodicity 
of the cycle with period N. 

Indeed, defining: 

7 

temperedeg{uji, N) := scale{ui,2N'^ (8.10) 
by theorem IVIII. II it immediately follows that tempered{uji, N) is a finite scale of N notes. 

We will now apply these considerations to show how the incommensurability of notes is 
required both by the theory of physical dissonance's resolution inside a fixed tonality and by 
the other ingredient horizontal rules in scores are made of, namely the theory of modulation 
between different tonalities. 

At this purpose its is necessary, first of all, to introduce a rigorous mathematical formal- 
ization of both Classical Harmony and some generalizations of its. 

Such an objective was pursued by the decennial work of the Guerino Mazzola's research's 
group about Mathematical Music Theory, j^l, j^, 

Some preliminary consideration is required as to the functorial formalism in which the 
whole matter has been finally recasted: 

the construction of the abstract mathematical machinery of forms and denotators has 
been justified by Mazzola through the following argumentations: 

1. the temporally evolving nature of the global encyclopedic space of human knowledge 
(called by Mazzola encyclospace with an explicit referring to the assumption of its 
informatic storing in a virtual space such as a database embedded in Internet) pos- 
sessing a topological structure endowed in the inter-relational links among distinct 
concepts (cfr. in particular the S*'' chapter "Navigation" and the chapter "Yoneda 
Perspectives" of ^) 

2. the requirement to mirror such a structure into the structure of the software concretelly 
computing the mathematical concepts of encyclospace 

While the latter argumentation , ba sed on the well known role played by Category Theory in 



Theoretical Computer Science 



is clear corresponding to the concrete architecture 
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of the program RUBATO, the former argumentation requires some further analysis: 



while in 43| Mazzola explicitely states that the existence and size of form semiotics is 
indeed an essential problem, observing that all the concretelly appearing forms of Mathe- 
matical Music Theory, being regular, can be obtained from simple forms through transfinite 
recursion, the 9*^ chapter "Yoneda Perspectives" of (more or less explicitely) states that 
the passage to the functorial formalism allows a consistent mathematical adoption of circular 
definitions. 

Mazzola's claim is, with this regard, trivially false: 

the passage from the set-theoretic foundations to the topos-theoretic foundations of Math- 
ematics, corresponding to ge from the Zermelo-Fraenkel formal system augmented 
with the Axiom of Choice, ZFC from here and beyond, to a formal system equiconsistent 
with the weaker Restricted Zermelo formal system augmented with the Axiom of Choice, 
RZC from here and beyond, doesn't drop the Foundation Axiom banning any kind of cir- 
cularity (cfr. the 10*'^ section " Topos- Theoretic and Set-Theoretic Foundations" of the G*'* 
chapter "Topoi and Logic" of [l(^): 

the proof of the equiconsistence among the Topos- Theoretic Foundation of Mathematics 
and the set-theoretical foundation furnished by RZC, consists in: 

1. showing that from each model S of RZC one can construct a well-pointed topos S 
(more precisely a model of the first-order-theory WPT of well-pointed topoi) with 
choice and natural number object 

2. showing, conversely, that for each such well-pointed topos £ one can construct a model 
of RZC. 

The first part of the equi-consistence's proof constructing a well-pointed topos S from a 
model S of set-theory consist simply into the construction of the category of all sets of S. 

The second part of the equi-consistence's proof is, instead, more complex. 

My purpose, with this regard, is to remark how, in such a construction of a model S of 
RCZ from a well-pointed topos with natural numbers object and choice, the Vicious Circle 
Principle (adopting the old terminology by Russell and Poincare concerning the exorcism 
of Russell's paradox for whose discussion I demand to £2l and to the section 4.3 "The 

n 

Set-Theoretical Hierarchy" of j63|]) expressed by the following one among RZC's axioms: 
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AXIOM VIII.l 

AXIOM OF FOUNDATION 

{3y){y ex) ^ {3y)[y e x A {^z e y){z ^ x)] 

and stating that any nonempty set has a minimal element with respect to the set-theoretic 
membership relation e is granted by the Axiom of Well-Founded Up Trees contained into 
the axiomatic definition of a tree in (the Mitchell-Benabou language of) an elementary topos 
E stating that any non-empty subtree of a tree has a maximal element. 

DEFINITION VIII.4 

TREE ON E 

an object T of £ endowed with a binary relation R T x T such that: 

Poset: R is a partial-order relation on T (and will be denoted from this reason as < from 
here and beyond 

Root: 

30 e T : {0 <tyteT) (8.11) 

Tree Property: 

i t is linearly ordered by < e T (8.12) 

Well-founded down: 

yS QT : S ^ ,3y e S : y > z ^ z ^ S (8.13) 
(i.e. y is minimal in S w.r.t. < ) 
Well-founded up: 

yS CT : {S y^lD ^ 3w e S : Not{z > w : ^z e S) (8.14) 
(i.e. w is maximal in S w.r.t. < ) 

rigid 

a : T >—>■ T automorfism of T a = I (8.15) 

where I denotes the identity map on T while an automorphism of T is defined as a leq 
preserving bijection of T 
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and where: 

DEFINITION VIII.5 

DOWNWARD CLOSURE OF t e T: 

it := {x : X <t} (8.16) 

Informally and intuitivelly speaking, the key point consists in representing a set x as a 
graph in the following way: x is the root of the tree;on the first level are the members of x 
, joined to x through a directed edge. Next above there are the members of the members y 
of X, each one joined to its y though a directed edge. 

Attempts to build " anti- foundational" axiomatizations of Mathematics giving up Russell's 
Vicious Circle Principle (that should more properly been called the Principle of Censorship of 
Vicious Circles) can only arise whether the constraint that the above graph doesn't contains 
cycles, and is conseguentially a tree, is removed. 

One possibility is given by the theory of hyper-sets, based on formal system ZFA obtained 
by ZFC replacing the Axiom of Foundation with a suitable Axiom of Anti-foundation. 

Hypersets may be reached in many different ways; 

Following the 2*^^ section "Ensembles non-bien fondes " of 621 and the chapter 2 "Back- 

n 

ground on set theory" an the chapter 10 " Graphs" of j6J] I will adhere to Aczel's formula- 
tions. 

Let us assume a proper class U of ur-elements that are not sets, are not classes and have 
no members; given a set s: 

DEFINITION VIII.6 

s IS TRANSITIVE: 

X e s ^ xe V{s) (8.17) 

DEFINITION VIII.7 

TRANSITIVE CLOSURE OF s: 

TC{s) := |J{«'U«'UU (8.18) 
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DEFINITION VIII.8 

SUPPORT OF s: 

DEFINITION VIII.9 

s IS PURE: 

Given a.n A C U: 

VafaiA) 



support{s) :— TC{s) U 



(8.19) 



support(s) = (8.20) 



{a : a is a set and support (a) C A} (8-21) 



DEFINITION VIII. 10 

CLASS OF THE PURE SETS: 

Vafa = K/a(0) (8.22) 

Let us now define in a rigorous way the notion of graph: 
DEFINITION VIII.ll 

GRAPH: 

a couple G := {G , -^g) such tliat G is a set and — is a binary relation over G. 
I will denote the proper class of all graphs by GRAPHS, 
given G = (G , ^g) e GRAPHS 

DEFINITION VIII. 12 

d is DECORATION OF G {d^D{G)) 
if d is a function d : G — > T4/a such that: 

d{a) = {d{b) : a ^ab} ya,beG (8.23) 

One can than introduce the following: 
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AXIOM VIII.2 



AXIOM OF ANTI-FOUNDATION 



e GRAPHS 3\D{g) 



(8.24) 



Let us now consider some formal system: 

DEFINITION VIII. 13 

FORMAL SYSTEM ZFC' 

the formal system with axioms: 



URELEMENTS 



EXTENSIONALITY 



(Vp)(Vg)[W(p) ^ -(gep)] 



PAIRING 



UNION 



POWER SET 



INFINITY 



COLLECTION 



(Va)(V6)[(Vp)[p ea^peb)^a = b] 



(Vp)(Vg)(3a)[p EaAqEa] 



(Va)(36)(Vcea)(Vpec)pe6 



(Va)(36)(Vc)[c C a ^ c e b] 



(3a) [0 e a A {Wb)[b e a ^ (3c e a)c = 6 U {6}]] 



{ya){Wp e a){3q)^{a,p,q) {3b){Wp e a){3q e b)^{a,p,q) 



SEPARATION 



(Va)(36)(Vp)[p e 6 ^ p e a A $(p, a) 
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CHOICE 



(Va)(3r)[r is a well-order of a] 



STRONG PLENITUDE 

(Wa)(Wb)[U{new{a,b)) A new{a,b)^b A (Wc ^ b)[new{a,b) new{c,b)]] (8.25) 

DEFINITION VIII.14 

FORMAL SYSTEM ZFC: 

zFc = zFc- + AXIOM lynrn 

DEFINITION VIIL15 

FORMAL SYSTEM ZFA: 

ZFA = ZFC- + AXIOM IVTTO 

The replacement of the axion JVIILlI axion fVIII.2l clearly affects the way by which the 
comparison of sets is defined so that the Axiom of Extensionality has to be looked at in a 
rather different way as it was for ZFC. As to our considerations, it will be sufficient to know 

n 

that ZFA results to be a (consistent ?) formal system about which I demand to j6^ getting 
rid of Russell's paradox in a completelly non-orthodox way. 

What it is important here to remark is that ZFA is not , of course, equiconsistent with 
the topos-theoretic foundation of Mathematics (first order theory of a Well-pointed Topos) 
and consequentially with RZC 

Whether Mazzola correctly claims that the passage to the Topos-theoretical formalization 
of Mathematics may be seen, from a philosophical perspective, as a kind of "behavioural 
revolution" according to which the identity of a mathematical concept is completely charac- 
terized by its properties as to inter-relation with other mathematical concepts, his claim that 
a such a passage contains the abrogation of the Vicious Circle Principle is , consequentially, 
completely false. 

The claim that the so called "Yoneda Perspective" gives some kind of conceptual con- 
sistence to postmodern intellectual hoaxes trying to give an impression of conceptual con- 
sistence to circularities through semiological arguments or whatsoever (cfr. and the 2*^* 
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chapter "Dizionario versus Enciclopedia" of [15|) is consequentially an intellectual hoax by 
itself. 

One could, indeed, use the equiconsistence of RZC and the first-order theory of well- 
point topoi to obtain a topos-theoretic version of ZFA. But such an anti-foundational formal 
system would be completelly a different thing with respect to the Lawvere's topos-theoretic 
foundation of Mathematics where, exactly as in the set theoretic foundation, circularity is 
banned. 

Since Mazzola's further constructions have as a ground the formalization of the American 
school pioneered by Milton Babbit, the necessary step consists in comparing the information- 
theoretic language of 3] I will adopt and some of the basic notions of the american tradition 
as codified by Allen Forte in 

Let us consider the scale temper ed{C2, 12); 

imponing octave-periodicity it results that the musical alphabet may be represented as 
the set of the residue classes modulo twelve Z12, endowed with its algebraic structure of a 
ring w.r.t. to the operations +12 and —12. 

Let us introduce the following maps: 

DEFINITION VIII.16 

TRANSLATION OF y e Z12: 

the map Ty : Z12 ^ Z12 such that: 

Ty{x) := X +12 y Wxe Z12 (8.26) 

and: 

DEFINITION VIII.17 

INVERSION OPERATOR: 

the map Inv : Z12 1— >■ Z12 such that: 

Inv{x) := [0]i2 -12 X (8.27) 

It is curious to notice at this point how a non-prime equal-tempering was coherent with 
the classical viewpoint on esthetic consonance, summarized in axiom IVI.ll giving rise to 
simpler, i.e. non co-prime ratios among the notes of physically consonant intervals; from the 
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viewpoint of Atonal Music a prime tempering would have been, contrary, more reasonable: 
since 12 is not prime the ring Z12 is not a (Galois) field and hence multiplication X12 and 
division -=-12 among pitch class sets cannot be defined so that one cannot implement the 
other two symmetry transformation that could, instead, be implemented on Zn and Z13. 

Of course the musical alphabet Z12 as well as the basic symmetry transformation are 
easily implemented by the following Mathematica expressions from section ^ 

ref erencenote= 132; 

(*** the following instructions implements the musical alphabet 
Z-12 ***) 

letter [n_] :=Mod[n,12] 
alphabet=Table [letter [n] ,-[n,0,ll}] ; 
FROMletterTOnote [n_] := 

ref erencenote*Power [2 , Power [letter [n] , Power [12 , -1] ] ] ] 
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I will adopt from here and beyond also the musical notation: 



c 




[0]l2 


(8.28) 


c% 


. 


[l]l2 


(8.29) 


D 


. 


[2] 12 


(8.30) 


L>» 




[3] 12 


(8.31) 


E 


— 


[4] 12 


(8.32) 


F 




[5] 12 


(8.33) 


pi 


:= [6]i2 




(8.34) 


G 


:= [7]i2 




(8.35) 








(8.36) 


A 


:= [9] 12 




(8.37) 




:= [10]i2 




(8.38) 


B 


:= [ll]i2 




(8.39) 
(8.40) 



Let us then consider the set Z*2 of all the finite strings (that I will also call words from 
here and beyond) over Z12, each element of which is nothing but an ordered pitch class set 
in Forte's terminology. 

Once more we can algorithmically implement the introduced notions through the following 
Mathematica expression of the notebook reported in sectiorlXl 

FROMletterTOnote [n_] := 

ref erencenote*Power [2 , Power [letter [n] , Power [12 , -1] ] ] ] 

FROMwordTOscale[word_] : = 

Table [FROMletterTOnote [Part [word , i] ] , {i , 1 , Length [word] }] 

(*** the following instructions introduced the notes without the 
Mod-12 constraint ***) 

c [1] =FROMletterTOnote [0] ; 
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c[n_] :=2*c[n-l] 

c\ [Sharp] [1] =FROMletterTOnote [1] ; 
c\ [Sharp] [n_] :=2*c\ [Sharp] [n-1] 
d [1] =FROMletterTOnote [2] ; 
d[n_] :=2*d[n-l] 

d\ [Sharp] [1] =FROMletterTOnote [3] ; 
d\ [Sharp] [n_] : =2*d\ [Sharp] [n-1] 
e [1] =FROMletterTOnote [4] ; 
e[n_] :=2*e[n-l] 

f [1] =FROMletterTOFROMletterTOnote [5] 
f [n_] :=2*f [n-l] 

f\ [Sharp] [l]=FR0MletterT0note[6] ; 
f\ [Sharp] [n_] :=2*f\ [Sharp] [n-1] 
g [1] =FROMletterTOnote [7] ; 
g[n_] :=2*g[n-l] 

g\ [Sharp] [l]=FR0MletterT0note[8] ; 



g\ [Sharp] [n_] : =2*g\ [Sharp] [n-1] 

a[l]=FR0MletterT0note[9] ; 
a[n_] :=2*a[n-l] 

a\ [Sharp] [1] =FROMletterTOnote [10] ; 
a\ [Sharp] [n_] : =2*a\ [Sharp] [n-1] 
b[l]=FROMletterTOnote[ll] ; 
b[n_] :=2*b[n-l] 

where the recursive definition of x = C, ■ ■ ■ , B n > 1 has being introduced in order to 
allow concretelly to play also higher octaves. 

With this regard, if a a monodic piece is represented as a list each element of which is 
itself a list of the form { note , duration} the involved code is: 

(*** a monodic piece is a list each element of which is itself a list of the 
form {note , duration} ***) 

playmonodic [piece_] : = 

Do [Play [Sin [piece [ [i] ] [[1]] *2*\ [Pi] *t] ,{t ,0,piece [ [i] ] [ [2] ] }] , {i,l. 
Length [piece] }] 

with the durations implemented as: 

(*** insert the "ref erencetime" ***) 

ref erencetime=4; 
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semibreve=l*ref erencetime ; 
minim= ( 1/2) *ref erencetime; 
crotchet= (l/4)*ref erencetime; 
quaver= (1/8) *ref erencetime ; 
semiquaver= (1/16) *ref erencetime ; 
demisemiquaver= (1/32) *ref erencetime ; 
hemidemisemiquaver= (1/64) *ref erencetime ; 

and with the following instructions allowing to associate (and to eliminate) a fixed crothet 
duration: 

FROMscaleTOpiece [scale_] : =Table [{Part [scale , i] , crotchet} , {i , 1 , Length [scale] }] 

FROMpieceTOscale [piece_] : =Table [Part [piece , i , 1] , {i , 1 , Length [piece] }] 

Given a word x e ~ Ufc=i ^12 integer i & {1, ■ ■ ■ ,\x\}: 



DEFINITION VIII. 18 



MODE OF X of i*'' DEGREE : 



mode{x , i) : 




(8.41) 



where Scyd denotes the operator of cyclic shift. 
Given furthermore an integer n & N 



DEFINITION VIII. 19 



CHORD OF X of i*'' DEGREE AT LEVEL n : 



chord{x , i , n) :— •"l^moc?e(:r , i)2j+i 



(8.42) 
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where • denotes the concatenation operator while Xj denotes the j'*^ letter of the word x. 

Let us observe, at this point, that exists a certain maximum level maxlevel{x) such that 
chord{x , i , n) for n > maxlevel{x) simply adds notes already contained in the chord. 

A simple reasoning allows to infer that: 

If I _ 5 f— iV^I — 1 . \x\ 
maxlevd{x) = 1 + Int{^ — ) - ^ ^— Int{^) (8.43) 

Given our alphabet S := Z12, a word x G and a map g : S — > S: 

DEFINITION VIII.20 

MAP INDUCED BY g ON WORDS: 
the map ^ : S* — : 

gix) = ■Hi^?(x,,) (8.44) 

Applying , in particular, the definit ior l VI 1 1 . 2 Ol to the maps of definition IVIII.16I and 
definition I VI 1 1. 1 71 one obtains the following 

DEFINITION VIII.21 

TRANSLATION OF y e ON WORDS: 
the map Ty : ^ 

DEFINITION VIII.22 

INVERSION OPERATOR ON WORDS; 
the map Inv : ^ ^12 

These operators naturally induce the following equivalence relations: 
DEFINITION VIII.23 

xi , X2 e Z*2 ARE TRANSLATIONALLY-EQUIVALENT ( xi ~t ^2): 

3y e Z12 : X2 = TyXi (8.45) 

DEFINITION VIII.24 
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xi,X2 e Z*2 ARE INVERSIONALLY-EQUIVALENT ( xi ~/„^ X2): 

X2 = Invxi (8.46) 

that may be managed through the following instructions from sectiorlXl 

(*** the following instructions implement the two operation of translation 
and inversion at the basis of atonal music as well as the relative 
tests ***) 

translation [word_ ,n_] : =Table [Mod [Part [word, i] +n, 12] , {i , 1 , Length [word] }] 

translationequivalenceof wordsQ [wl_ , w2_] : = 

Not [Equal [Table [Equal [w2 , translation [wl ,n] ] , {n, , 11}] , Table [False , {12}] ] ] 

inversion [word_] : =Table [Mod [12-Part [word , i] ,12] , {i , 1 , Length [word] }] 

inversionequivalenceof wordsQ [wl_ , w2_] : =Equal [wl , inversion [w2] ] 

inversioninvarianceof awordQ [w_] : =Equal [w , inversion [w] ] 

Let us now analyze the musical intervals inside a word: instead of the complicated Forte's 
approach I will adopt a more intuitive definition of the interval vector: 
given two musical letters x,y E TLyi'- 

DEFINITION VIII.25 

DISTANCE BETWEEN x AND y : 

d{x, y) := X -yi y (8.47) 

Given a vord x G Zi^2- 
DEFINITION VIII.26 

INTERVAL VECTOR OF x: 

I{x) := {d{x2,xi) , ■ ■ ■ ,d{x\cs\,x\ci;\-i)) (8.48) 

One has obviously that: 
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Theorem VIII.2 

THE INTERVAL VECTOR DETERMINES A TRANSLATIONAL EQUIVALENCE'S 
CLASS 

X ^TV ^ I{x) = I{y) (8.49) 
PROOF: 

Proof of the implication =^ By hypothesis: 

3z e Zi2 : y = T,x (8.50) 

One has that: 

I{y) = {d{x2+l2Z,Xi+i2z), ■■■ ,d{xi3l+-i2Z,Xl3l_-i+i2z)) = 

= {d{x2,xi) , ■ ■ ■ ,d{x\g\,x\g\-i) = I{x) (8.51) 

Proof of the implication By hypothesis: 

{d{x2, xi), ■■■ , o?(a;|^|, X|^|_i) = {d{y2, Vi) , ■ ■ ■ , (i(?/|a-|, Z/|^-i) (8.52) 
This implies that: 

3z e Zi2 : {d{y2,yi), ■■■ ,d{y\g\,y\g\_i) = 

= {d{x2 +12 z, Xi+i2 z) , ■ ■ ■ , d{xi3i +12 z, a;|5|_i +12 z)) (8.53) 

implying that: 

y = T,x (8.54) 

■ 

Let us now fix a useful notation: words will be represented enclosed by { ■ • ■ } while 
interval vectors, and hence translationally-equivalences' classes, will be represented enclosed 
by(...). 

So, for example, we will speak about the diatonic major scale (2, 2, 1, 2, 2, 2, 1) referring 
to the translationally equivalence class: 

(2,2,1,2,2,2,1) =[0,2,4,5,7,9,11]t (8.55) 
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Let us now introduce a particularly important subset of musical words. Let us consider, 

at this purpose, a generic finite (i.e. card{Ti) < oo ) alphabet S. We have clearly that: 

carrf(S") = (carrf(S))" (8.56) 

card{E*) = Kq (8.57) 

carrf(S°°) = (8.58) 

Let us now introduce the following: 
DEFINITION VIII.27 

NONREPETITIVE WORDS OVER S OF LENGTH n e N 

E^^ := {f G : ^ V^ ^ j} (8.59) 

DEFINITION VIII.28 

NONREPETITIVE WORDS OVER S: 

S^^ := {f e : 7^ Xj ^ j} (8.60) 
Trivial combinatorial considerations allow to prove the following: 
Theorem VIII.3 

CARDINALITIES OF THE SETS OF NONREPETITIVE WORDS: 

carrf(E^^) = ^^^^d^^)^ (8.61) 

Applying theoren fVIII.3l to our particular musical alphabet Z12 one obtains the following: 
Corollary VIII.2 

CARDINALITIES OF THE SET OF NONREPETITIVE MUSICAL WORDS 

carc?(Z^2 7V«) = (^^^ (8-63) 

card{Z{^ j^j^) = ^ Ij = 4095 (8.64) 
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Mazzola's strong generalization of the notion of tonality is based on the formalization of 
the 3-voices harmonization of the degrees of arbitrary nonrepetitive words of length equal 
to seven S^jij. 

Gregorian Music was based on the following strongly smaller subset of S^^: 
DEFINITION VIII.29 
GREGORIAN- WORDS 



S, 



greg 



{ mode{x, i) x e : I{x) = (2, 2, 1, 2, 2, 2, 1) , i = 1 ■■■7} 



(8.65) 



One has clearly that: 



card{S, 



greg J 



84 



(8.66) 



since Sgren contains the 12 version starting from C to B, of the following modes: 



[2,2,1,2,2,2,1 
[2,1,2,2,2,1,2 



[2,1,2,2,2,1,2 



[2,2,2,1,2,2,1 



[2,2,1,2,2,1,2 



[2,1,2,2,1,2,2 
[1,2,2,1,2,2,2 



Ionian (major) 

dorian 

phrigian 

lydian 

myxolydian 

aeolian (minor) 

locrian 



[8.67) 



i.e. all the elements of whose labels are made of 2 with the exception of two I's at 
distance 4. 

Classical Harmony, furthermore, is based on the following smaller subset of Sgreg'- 
DEFINITION VIII.30 
CLASSICAL-WORDS 



<Sci '■= {[i]i2 — Ionian , \1\12 — aeolian , i 



12} 



(8.68) 



One has clearly that: 



card{S, 



d 



24 



(8.69) 



' We will adopt here the standard denomination of gregorian modes demanding to lei , and to the 
fourth chapter " Le scale" of [2^ for any further information concerning their functionalities in the catholic 
liturgy and their hystorical derivation from greek modes 
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Among the overwhelming majority of non-gregorian (and hence also non-classical) non- 
repetitive words worth of note are the harmonic minor scale (2,1,2,2,1,3,1) and its derived 
modes ( locrian {16 (1,2,2,1,3,1,2) , augmented ionic (2,2,1,3,1,2,1) , minor lydian 7k> 
(2,1,3,1,2,1,2), myxolidian b2/6b (1,3,1,2,1,2,2) , lydian p (3,1,2,1,2,2,1) , super- 
locrian 7 diminuished (1,2,1,2,2,1,3)), the melodic minor scale (2,1,2,2,2,2,1) and its 
derived modes (dorian b2 (1, 2, 2, 2, 2, 1, 2), augmented lydian (2, 2, 2, 2, 1, 2, 1), dominating 
lydian (2,2,2,1,2,1,2), myxolidian b6 (2,2,1,2,1,2,2), locrian p (2,1,2,1,2,2,2), super- 
locrian (1, 2, 1, 2, 2, 2, 2)) as well as the 12-equally tempered approcimation of man y et hnic 
scales cfr. the voices "Modi (Modalita" and "Scale musicali antiche e moderne" of 169| and 
such as the major tzigan (1, 3, 2, 1, 1, 3, 1) and minor tzigan scale (2, 1, 3, 1, 1, 3, 1), 
the Indian scale (1,3,1,2,1,3,1) , the indu scale (2,2,1,2,1,2,2), the hungarian scale 
(3, 1, 2, 1, 2, 1, 2) and the minor napoletan scale (1, 2, 2, 2, 1, 3, 1). 

We are now ready to introduce the following notions: 

DEFINITION VIII.31 

MAZZOLA TONALITY: 

a couple (x, chord^^^) where: 



1. 



X e (8.70) 



2. chorS^^ : {1,2,3,4,5,6,7} ^ is the map associating to to the i^'^-degree the 
chord: 

chorS-'^\i) = chord{x,i,l) (8.71) 

Since a Mazzola-tonality is determined by its underlying non-repetitive eptatonic words, the 
set Tmuz of all the possible Mazzola-tonalities is bijective to ^J^^ji , so that, clearly, one have 



It should be observed that it is only by 12-equally tempered approximation of the makam "Ahavah 
Rabbah" that it coUapes to the fifth's mode of the harmonic minor scale. These brief and very schematic 
observations could be considered, anyway, as no more than a taste about the complexity of all the studies 
concerning Jewish Music, its identity, its esthetics (and consequentially, according to those insisting on 
the link music versus poietry , cfr. the subsection "Musica e Poesia" of the 2*'' chapter "L'Occidente 
cristiano c I'idea di Musica" of lllj ) , its poetics l7l['). the bi-directional flow of information with Christian 
music in its hystorical develop |73 |. I demand to |73|. [t^ . and for any further information 
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that: 

cardiTMaz) = 792 (8.72) 
Similarly, introduced the following notions: 

DEFINITION VIII.32 

GREGORIAN TONALITIES: 

Tgreg ■= {{x , chorcF^) : XeSgreg} (8.73) 



DEFINITION VIII.33 

CLASSICAL TONALITIES: 

T,i ■= {{x.chorS^^) ■ xeSa} (8.74) 
the bijectivity of Sg^eg and Tgreg and the bijectivity of Sd and imply that: 

card{Tgreg) = 84 (8.75) 

card{Td) = 24 (8.76) 

Let us now observe that, as to the possibility of performing the harmonization of the degrees 
on the scale, there is no reason to restrict ourselves to S^jij; let us observe, with this regard 
0|; ^h^^ popular music of many cultures adopts commonly the pentatonic scale 
(2, 2, 3, 2, 4) and its modes, that the 12-equally tempered approximation of some ethnic 
scale such as the Japanese Hira Joski (1, 4, 1, 4, 2) or the Japanese pelog (1, 4, 1, 4, 2) are also 
pentatonic, that the blues scale (3, 2, 1, 1, 3) is made of six notes and the many be-bop scales 
such as the bebop major (2, 2, 1, 2, 1, 1, 2, 1) or the be-bop dominant (2, 2, 1, 2, 2, 1, 1, 1) and 
the relative mode are made of 8 notes and so on. 

Looking at Jazz Harmony [l^], 13' 13 furthermore, it appears natural to give up 
the restriction of considering only first-level chords. 

One arrives, consequentially, to the following definition: given a word x G — 
Ufe=i ^NR ^ number n G N+ such that n < raaxlevel{x) 
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DEFINITION VIII.34 

TONALITY OF THE WORD x G S^^ - [jj^^ S^^ AT THE LEVEL n (n-TONALITY 
OF x) ■ 

tonality {x ^ n) := (x , chorS"'''), where chorS^^ : {1, ■ ■ ■ , ^ Z*2 is the map such 
that: 

chord^"'\i) = chord{x , i , n) (8.77) 

I will denote the set of all the n-tonalities by 7^ while I will denote by T the set of all 
the tonalities at any level. One has clearly that: 

maxlevel{x) 12 1 + /nt(^^) - -tlll^/nt(|) 

card{T) = J2 E 1 = f^card{J:%j,) 1 

= 10100 (8.78) 

Given an n-tonality t ETn- 
DEFINITION VIII.35 

HARMONIC WORDS OF t: 

nWit) := {Range{chord^'^\t))y (8.79) 

Given two tonalities ti, t2 ^ T'- 
DEFINITION VIII.36 

ti AND t2 ARE TRANSLATIONALLY-EQUIVALENT ( ti ~r ^2): 

3z G Z12 : chord{ti i) = TzChord{t2 i) Vi (8.80) 

Once again all these mathematical concepts are easily implemented trough the following 
expressions of the section |X1 

(*** mode [word, i] ) gives the i - th mode of a word 
on the musical alphabet Z-12 ***) 

mode [word_ , i_] : =RotateLef t [word, i-1] ; 
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(*** chord [word, i, level] gives the chord of the i-th degree of a 
word at a chosen level ***) 

chord [word_ , i_ , level_] : = Table [Part [mode [word , i] , 

If [Mod [2n+l , Length [word] ] ==0 , Length [word] , Mod [2n+l , Length [word] ] ] ] , {n , , 
1+level}] 

tonality [word_ , level_] : =Table [chord [word , i , level] , {i , 1 , Length [word] }-] 

harmonicwords [t_ ,n_] : =Strings [t ,n] 

harmonicwordsupto [t_ ,n_] : = 
If [n==l .harmonicwords [t , 1] , 

Join [harmonicwordsupto [t ,n-l] , harmonicwords [t ,n] ] ] 

hcirmonicwordintermof degrees [t_ , listof degrees.] : = 

Table [Part [t ,Part [listof degrees, i] ] ,{i , 1 , Length [listof degrees] }] 

degreeof achordinatonality [w_ , t_] : =Part [Flatten [Position [t , w] ] ,1] 

FROMharmonicwordTOphysicalchord [hw_] : = 

Table [FROMwordTOscale [Part [hw , i] ] , {i , 1 , Length [hw] }] 

tonal itymembershipQ [hw_ , t_] : =MemberQ [harmonicwords [t , Length [hw] ] , hw] 

It may be useful to report some example: 

Example VIII.3 

TONALITIES OF THE MOST COMMON WORDS AT DIFFERENT LEVELS 
tonality [majorword[0] , 1] = 
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{{0,4, 7}, {2, 5, 9}, {4, 7, 11}, {5, 9,0}, {7, 11, 2}, {9, 0,4}, {11, 2, 5}} 



tonality [majorword[0] ,2] = 

{{0,4, 7, 11}, {2, 5, 9,0}, {4, 7, 11, 2}, {5, 9, 0,4}, {7, 11, 2, 5}, {9, 0,4, 7}, {11, 2, 5, 9}} 
tonality [majorword[0] ,3] = 

{{0, 4, 7, 11, 2}, {2, 5, 9, 0,4}, {4, 7, 11, 2, 5}, {5, 9, 0,4, 7}, {7, 11, 2, 5, 9}, {9, 0,4, 7, 11}, { 
11,2,5,9,0}} 

tonality [majorword[0] ,4] = 

{{0,4, 7, 11, 2, 5}, {2, 5, 9, 0,4, 7}, {4, 7, 11, 2, 5, 9}, {5, 9, 0,4, 7, 11}, {7, 11, 2, 5, 9,0}, {9, 
0,4, 7, 11, 2}, {11, 2, 5, 9, 0,4}} 

tonality [ma jorword[0] ,5] = 

{{0,4, 7, 11, 2, 5, 9}, {2, 5, 9, 0,4, 7, 11}, {4, 7, 11, 2, 5, 9,0}, {5, 9, 0,4, 7, 11, 2}, {7, 11, 2, 
5, 9, 0,4}, {9, 0,4, 7, 11, 2, 5}, {11, 2, 5, 9, 0,4, 7}} 

tonality [minorword [0] ,1] = 

{{0,3, 7}, {2, 5, 8}, {3, 7, 10}, {5, 8,0}, {7, 10, 2}, {8, 0,3}, {10, 2, 5}} 
tonality [minorword [0] ,2] = 

{{0,3, 7, 10}, {2, 5, 8,0}, {3, 7, 10, 2}, {5, 8, 0,3}, {7, 10, 2, 5}, {8, 0,3, 7}, {10, 2, 5, 8}} 
tonality [minorword [0] ,3] = 

{{0, 3, 7, 10, 2}, {2, 5, 8, 0,3}, {3, 7, 10, 2, 5}, {5, 8, 0,3, 7}, {7, 10, 2, 5, 8}, {8, 0,3, 7, 10}, { 
10,2,5,8,0}} 

tonality [minorword [0] ,4] = 

{{0,3, 7, 10, 2, 5}, {2, 5, 8, 0,3, 7}, {3, 7, 10, 2, 5, 8}, {5, 8, 0,3, 7, 10}, {7, 10, 2, 5, 8,0}, {8, 
0,3, 7, 10, 2}, {10, 2, 5, 8, 0,3}} 

tonality [minorword [0] ,5] = 
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{{0,3, 7, 10, 2, 5, 8}, {2, 5, 8, 0,3, 7, 10}, {3, 7, 10, 2, 5, 8,0}, {5, 8, 0,3, 7, 10, 2}, {7, 10, 2, 
5, 8, 0,3}, {8, 0,3, 7, 10, 2, 5}, {10, 2, 5, 8, 0,3, 7}} 

tonality [harmonicminorword [0] , 1] = 

{{0,3, 7}, {2, 5, 8}, {3, 7, 11}, {5, 8,0}, {7, 11, 2}, {8, 0,3}, {11, 2, 5}} 
tonality [harmonicminorword [0] ,2] = 

{{0,3, 7, 11}, {2, 5, 8,0}, {3, 7, 11, 2}, {5, 8, 0,3}, {7, 11, 2, 5}, {8, 0,3, 7}, {11, 2, 5, 8}} 

tonality [harmonicminorword [0] ,3] = 

{{0, 3, 7, 11, 2}, {2, 5, 8, 0,3}, {3, 7, 11, 2, 5}, {5, 8, 0,3, 7}, {7, 11, 2, 5, 8}, {8, 0,3, 7, 11}, { 
11,2,5,8,0}} 

tonality [harmonicminorword [0] ,4] = 

{{0,3, 7, 11, 2, 5}, {2, 5, 8, 0,3, 7}, {3, 7, 11, 2, 5, 8}, {5, 8, 0,3, 7, 11}, {7, 11, 2, 5, 8,0}, {8, 
0,3, 7, 11, 2}, {11, 2, 5, 8, 0,3}} 

tonality [harmonicminorword [0] ,5] = 

{{0,3, 7, 11, 2, 5, 8}, {2, 5, 8, 0,3, 7, 11}, {3, 7, 11, 2, 5, 8,0}, {5, 8, 0,3, 7, 11, 2}, {7, 11, 2, 
5, 8, 0,3}, {8, 0,3, 7, 11, 2, 5}, {11, 2, 5, 8, 0,3, 7}} 

tonality [dorianword [0] , 1] = 

{{0,3, 7}, {2, 5, 9}, {3, 7, 10}, {5, 9,0}, {7, 10, 2}, {9, 0,3}, {10, 2, 5}} 
tonality [dorianword [0] ,2] = 

{{0,3, 7, 10}, {2, 5, 9,0}, {3, 7, 10, 2}, {5, 9, 0,3}, {7, 10, 2, 5}, {9, 0,3, 7}, {10, 2, 5, 9}} 
tonality [dorianword [0] ,3] = 

{{0, 3, 7, 10, 2}, {2, 5, 9, 0,3}, {3, 7, 10, 2, 5}, {5, 9, 0,3, 7}, {7, 10, 2, 5, 9}, {9, 0,3, 7, 10}, { 
10,2,5,9,0}} 

tonality [dorianword [0] ,4] = 
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{{0,3, 7, 10, 2, 5}, {2, 5, 9, 0,3, 7}, {3, 7, 10, 2, 5, 9}, {5, 9, 0,3, 7, 10}, {7, 10, 2, 5, 9,0}, {9, 
0,3, 7, 10, 2}, {10, 2, 5, 9, 0,3}} 

tonality [dorianword [0] ,5] = 

{{0,3, 7, 10, 2, 5, 9}, {2, 5, 9, 0,3, 7, 10}, {3, 7, 10, 2, 5, 9,0}, {5, 9, 0,3, 7, 10, 2}, {7, 10, 2, 
5, 9, 0,3}, {9, 0,3, 7, 10, 2, 5}, {10, 2, 5, 9, 0,3, 7}} 

tonality [phrigianword [0] ,1] = 

{{0,3, 7}, {1,5, 8}, {3, 7, 10}, {5, 8,0}, {7, 10,1}, {8, 0,3}, {10, 1,5}} 

tonality [phrigianword [0] ,2] = 

{{0,3, 7, 10}, {1,5, 8,0}, {3, 7, 10,1}, {5, 8, 0,3}, {7, 10, 1,5}, {8, 0,3, 7}, {10, 1,5, 8}} 
tonality [phrigianword [0] ,3] = 

{{0, 3, 7, 10,1}, {1,5, 8, 0,3}, {3, 7, 10, 1,5}, {5, 8, 0,3, 7}, {7, 10, 1,5, 8}, {8, 0,3, 7, 10}, { 
10,1,5,8,0}} 

tonality [phrigianword [0] , 4] = 

{{0,3, 7, 10, 1,5}, {1,5, 8, 0,3, 7}, {3, 7, 10, 1,5, 8}, {5, 8, 0,3, 7, 10}, {7, 10, 1,5, 8,0}, {8, 
0,3, 7, 10,1}, {10, 1,5, 8, 0,3}} 

tonality [phrigianword [0] ,5] = 

{{0,3, 7, 10, 1,5, 8}, {1,5, 8, 0,3, 7, 10}, {3, 7, 10, 1,5, 8,0}, {5, 8, 0,3, 7, 10,1}, {7, 10,1, 
5, 8, 0,3}, {8, 0,3, 7, 10, 1,5}, {10, 1,5, 8, 0,3, 7}} 

tonality [lydianword [0] , 1] = 

{{0,4, 7}, {2, 6, 9}, {4, 7, 11}, {6, 9,0}, {7, 11, 2}, {9, 0,4}, {11, 2, 6}} 

tonality [lydianword [0] ,2] = 

{{0,4, 7, 11}, {2, 6, 9,0}, {4, 7, 11, 2}, {6, 9, 0,4}, {7, 11, 2, 6}, {9, 0,4, 7}, {11, 2, 6, 9}} 
tonality [lydianword [0] ,3] = 
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{{0, 4, 7, 11, 2}, {2, 6, 9, 0,4}, {4, 7, 11, 2, 6}, {6, 9, 0,4, 7}, {7, 11,2, 6, 9}, {9, 0,4, 7, 11}, { 
11,2,6,9,0}} 

tonality [lydianword [0] ,4] = 

{{0,4, 7, 11, 2, 6}, {2, 6, 9, 0,4, 7}, {4, 7, 11, 2, 6, 9}, {6, 9, 0,4, 7, 11}, {7, 11, 2. 6, 9,0}, {9, 
0,4, 7, 11, 2}, {11, 2, 6, 9, 0,4}} 

tonality [lydianword [0] ,5] = 

{{0,4, 7, 11, 2, 6, 9}, {2, 6, 9, 0,4, 7, 11}, {4, 7, 11, 2, 6, 9,0}, {6, 9, 0,4, 7, 11, 2}, {7, 11, 2, 
6, 9, 0,4}, {9, 0,4, 7, 11, 2, 6}, {11, 2, 6, 9, 0,4, 7}} 

tonality [mixolydianword [0] , 1] = 

{{0,4, 7}, {2, 5, 9}, {4, 7, 10}, {5, 9,0}, {7, 10, 2}, {9, 0,4}, {10, 2, 5}} 
tonality [mixolydianword [0] ,2] = 

{{0,4, 7, 10}, {2, 5, 9,0}, {4, 7, 10, 2}, {5, 9, 0,4}, {7, 10, 2, 5}, {9, 0,4, 7}, {10, 2, 5, 9}} 
tonality [mixolydianword [0] ,3] = 

{{0, 4, 7, 10, 2}, {2, 5, 9, 0,4}, {4, 7, 10, 2, 5}, {5, 9, 0,4, 7}, {7, 10, 2, 5, 9}, {9, 0,4, 7, 10}, { 
10,2,5,9,0}} 

tonality [mixolydianword [0] ,4] = 

{{0,4, 7, 10, 2, 5}, {2, 5, 9, 0,4, 7}, {4, 7, 10, 2, 5, 9}, {5, 9, 0,4, 7, 10}, {7, 10, 2, 5, 9,0}, {9, 
0,4, 7, 10, 2}, {10, 2, 5, 9, 0,4}} 

tonality [mixolydianword [0] ,5] = 

{{0,4, 7, 10, 2, 5, 9}, {2, 5, 9, 0,4, 7, 10}, {4, 7, 10, 2, 5, 9,0}, {5, 9, 0,4, 7, 10, 2}, {7, 10, 2, 
5, 9, 0,4}, {9, 0,4, 7, 10, 2, 5}, {10, 2, 5, 9, 0,4, 7}} 

tonality [locriaiiword[0] , 1] = 

{{0,3, 6}, {1,5, 8}, {3, 6, 10}, {5, 8,0}, {6, 10,1}, {8, 0,3}, {10, 1,5}} 
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tonality [locrianword[0] ,2] = 

{{0,3, 6, 10}, {1,5, 8,0}, {3, 6, 10,1}, {5, 8, 0,3}, {6, 10, 1,5}, {8, 0,3, 6}, {10, 1,5, 8}} 

tonality [locrianword [0] ,3] = 

{{0, 3, 6, 10,1}, {1,5, 8, 0,3}, {3, 6, 10, 1,5}, {5, 8, 0,3, 6}, {6, 10, 1,5, 8}, {8, 0,3, 6, 10}, { 
10,1,5,8,0}} 

tonality [locrianword [0] ,4] = 

{{0,3, 6, 10, 1,5}, {1,5, 8, 0,3, 6}, {3, 6, 10, 1,5, 8}, {5, 8, 0,3, 6, 10}, {6, 10, 1,5, 8,0}, {8, 
0,3, 6, 10,1}, {10, 1,5, 8, 0,3}} 

tonality [locrianword [0] ,5] = 

{{0,3, 6, 10, 1,5, 8}, {1,5, 8, 0,3, 6, 10}, {3, 6, 10, 1,5, 8,0}, {5, 8, 0,3, 6, 10,1}, {6, 10,1, 
5, 8, 0,3}, {8, 0,3, 6, 10, 1,5}, {10, 1,5, 8, 0,3, 6}} 

tonality [tziganminorword [0] , 1] = 

{{0,3, 7}, {2, 6, 8}, {3, 7, 11}, {6, 8,0}, {7, 11, 2}, {8, 0,3}, {11, 2, 6}} 
tonality [tziganminorword [0] ,2] = 

{{0,3, 7, 11}, {2, 6, 8,0}, {3, 7, 11, 2}, {6, 8, 0,3}, {7, 11, 2, 6}, {8, 0,3, 7}, {11, 2, 6, 8}} 
tonality [tziganminorword [0] ,3] = 

{{0, 3, 7, 11, 2}, {2, 6, 8, 0,3}, {3, 7, 11, 2, 6}, {6, 8, 0,3, 7}, {7, 11, 2, 6, 8}, {8, 0,3, 7, 11}, { 
11,2,6,8,0}} 

tonality [tziganminorword [0] ,4] = 

{{0,3, 7, 11, 2, 6}, {2, 6, 8, 0,3, 7}, {3, 7, 11, 2, 6, 8}, {6, 8, 0,3, 7, 11}, {7, 11, 2, 6, 8,0}, {8, 
0,3, 7, 11, 2}, {11, 2, 6, 8, 0,3}} 

tonality [tziganminorword [0] ,5] = 

{{0,3, 7, 11, 2, 6, 8}, {2, 6, 8, 0,3, 7, 11}, {3, 7, 11, 2, 6, 8,0}, {6, 8, 0,3, 7, 11, 2}, {7, 11, 2, 
6, 8, 0,3}, {8, 0,3, 7, 11, 2, 6}, {11, 2, 6, 8, 0,3, 7}} 
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tonality [ j ewishword [0] , 1] = 

{{0,4, 7}, {1,5, 8}, {4, 7, 10}, {5, 8,0}, {7, 10,1}, {8, 0,4}, {10, 1,5}} 

tonality [j ewishword [0] ,2] = 

{{0,4, 7, 10}, {1,5, 8,0}, {4, 7, 10,1}, {5, 8, 0,4}, {7, 10, 1,5}, {8, 0,4, 7}, {10, 1,5, 8}} 
tonality [j ewishword [0] ,3] = 

{{0, 4, 7, 10,1}, {1,5, 8, 0,4}, {4, 7, 10, 1,5}, {5, 8, 0,4, 7}, {7, 10, 1,5, 8}, {8, 0,4, 7, 10}, { 
10,1,5,8,0}} 

tonality [j ewishword [0] ,4] = 

{{0,4, 7, 10, 1,5}, {1,5, 8, 0,4, 7}, {4, 7, 10, 1,5, 8}, {5, 8, 0,4, 7, 10}, {7, 10, 1,5, 8,0}, {8, 
0,4, 7, 10,1}, {10, 1,5, 8, 0,4}} 

tonality [j ewishword [0] ,5] = 

{{0,4, 7, 10, 1,5, 8}, {1,5, 8, 0,4, 7, 10}, {4, 7, 10, 1,5, 8,0}, {5, 8, 0,4, 7, 10,1}, {7, 10,1, 
5, 8, 0,4}, {8, 0,4, 7, 10, 1,5}, {10, 1,5, 8, 0,4, 7}} 

tonality [maj orpentatonicword [0] , 1] = 
{{0,4, 9}, {2, 7,0}, {4, 9, 2}, {7, 0,4}, {9, 2, 7}} 

tonality [maj orpentatonicword [0] ,2] = 

{{0,4, 9, 2}, {2, 7, 0,4}, {4, 9, 2, 7}, {7, 0,4, 9}, {9, 2, 7,0}} 

t onal ity [maj orpent at oni cword [0] , 3] = 

{{0,4, 9, 2, 7}, {2, 7, 0,4, 9}, {4, 9, 2, 7,0}, {7, 0,4, 9, 2}, {9, 2, 7, 0,4}} 

tonality [minorpentatoni cword [0] ,1] = 

{{3, 7,0}, {5, 10, 3}, {7, 0,5}, {10, 3, 7}, {0,5, 10}} 

tonality [minorpentatonicword[0] ,2] = 
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{{3, 7, 0,5}, {5, 10, 3, 7}, {7, 0,5, 10}, {10, 3, 7,0}, {0,5, 10, 3}} 
tonality [minorpent at onicword[0] ,3] = 

{{3, 7, 0,5, 10}, {5, 10, 3, 7,0}, {7, 0,5, 10, 3}, {10, 3, 7, 0,5}, {0,5, 10, 3, 7}} 
tonality [bluesword [0] ,1] = 

{{0,5, 7}, {3, 6, 10}, {5, 7,0}, {6, 10, 3}, {7, 0,5}, {10, 3, 6}} 
tonality [esatonalword [0] , 1] = 

{{0,4, 8}, {2, 6, 10}, {4, 8,0}, {6, 10, 2}, {8, 0,4}, {10, 2, 6}} 
tonality [augmentedword [0] ,1] = 

{{0,4, 8}, {3, 7, 11}, {4, 8,0}, {7, 11, 3}, {8, 0,4}, {11, 3, 7}} 
tonality [half wholediminishedword [0] , 1] = 

{{0,3, 6}, {1,4, 7}, {3, 6, 9}, {4, 7, 10}, {6, 9,0}, {7, 10,1}, {9, 0,3}, {10, 1,4}} 
tonality [half wholediminishedword [0] ,2] = 

{{0,3, 6, 9}, {1,4, 7, 10}, {3, 6, 9,0}, {4, 7, 10,1}, {6, 9, 0,3}, {7, 10, 1,4}, {9, 0,3, 6}, {10, 
1,4,7}} 

tonality [bebopmajorwordEO] , 1] = 

{{0,4, 7}, {2, 5, 8}, {4, 7, 9}, {5, 8, 11}, {7, 9,0}, {8, 11, 2}, {9, 0,4}, {11, 2, 5}} 
t onal ity [bebopma j orword [0] , 2] = 

{{0,4, 7, 9}, {2, 5, 8, 11}, {4, 7, 9,0}, {5, 8, 11, 2}, {7, 9, 0,4}, {8, 11, 2, 5}, {9, 0,4, 7}, {11, 
2,5,8}} 

tonality [bebopdominant [0] , 1] = 

{{0,4, 7}, {2, 5, 9}, {4, 7, 10}, {5, 9, 11}, {7, 10,0}, {9, 11, 2}, {10, 0,4}, {11, 2, 5}} 
tonality [bebopdominant [0] , 2] = 
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{{0,4, 7, 10}, {2, 5, 9, 11}, {4, 7, 10,0}, {5, 9, 11, 2}, {7, 10, 0,4}, {9, 11, 2, 5}, {10, 0,4, 
7}, {11, 2, 5, 9}} 

tonality [chromaticword[0] , 1] = 

{{0, 2, 4}, {1,3, 5}, {2, 4, 6}, {3, 5, 7}, {4, 6, 8}, {5, 7, 9}, {6, 8, 10}, {7, 9, 11}, {8, 10, 0},{ 
9, 11,1}, {10, 0,2}, {11, 1,3}} 

tonality [chromaticword[0] ,2] = 

{{0,2, 4, 6}, {1,3, 5, 7}, {2, 4, 6, 8}, {3, 5, 7, 9}, {4, 6, 8, 10}, {5, 7, 9, 11}, {6, 8, 10,0}, {7, 
9, 11,1}, {8, 10, 0,2}, {9, 11, 1,3}, {10, 0,2, 4}, {11, 1,3, 5}} 

tonality [chromaticword [0] ,3] = 

{{0, 2, 4, 6, 8}, {1,3, 5, 7, 9}, {2, 4, 6, 8, 10}, {3, 5, 7, 9, 11}, {4, 6, 8, 10,0}, {5, 7, 9, 11, 1},{ 

6, 8, 10, 0,2}, {7, 9, 11, 1,3}, {8, 10, 0,2, 4}, {9, 11, 1,3, 5}, {10, 0,2, 4, 6}, {11, 1,3, 5, 
7}} 

tonality [chromaticword [0] ,4] = 

{{0, 2, 4, 6, 8, 10}, {1,3, 5, 7, 9, 11}, {2, 4, 6, 8, 10,0}, {3, 5, 7, 9, 11,1}, {4, 6, 8, 10,0, 2}, { 
5, 7, 9, 11, 1,3}, {6, 8, 10, 0,2, 4}, {7, 9, 11, 1,3, 5}, {8, 10, 0,2, 4, 6}, {9, 11, 1,3, 5, 
7}, {10, 0,2, 4, 6, 8}, {11, 1,3, 5, 7, 9}} 



Example VIII. 4 

THE II-V-I PROGRESSION 

Let us consider the II-V-I progression, the most usual progression in Jazz [tT^ : 



harmonicwordintermof degrees [tonality [maj orword [0] ,1] ,{2,5, 1}] = 
{{2, 5, 9}, {7, 11, 2}, {0,4, 7}} 

harmonicwordintermof degrees [tonality [maj orword [0] ,2] ,{2,5, 1}] = 
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{{2, 5, 9,0}, {7, 11, 2, 5}, {0,4, 7, 11}} 



harmonicwordintermof degrees [tonality [maj orword [0] ,3] ,{2,5, 1}] = 
{{2, 5, 9, 0,4}, {7, 11, 2, 5, 9}, {0,4, 7, 11, 2}} 

harmonicwordintermof degrees [tonality [maj orword [0] , 4] , {2 , 5 , 1}] = 
{{2, 5, 9, 0,4, 7}, {7, 11, 2, 5, 9,0}, {0,4, 7, 11, 2, 5}} 

harmonicwordintermof degrees [tonality [maj orword [0] , 5] , {2 , 5 , 1}] = 
{{2, 5, 9, 0,4, 7, 11}, {7, 11, 2, 5, 9, 0,4}, {0,4, 7, 11, 2, 5, 9}} 

harmonicwordintermof degrees [tonality [minorword [0] ,1] ,{2,5, 1}] = 
{{2, 5, 8}, {7, 10, 2}, {0,3, 7}} 

harmonicwordintermof degrees [tonality [minorword [0] ,2] ,{2,5, 1}] = 
{{2, 5, 8,0}, {7, 10, 2, 5}, {0,3, 7, 10}} 

hcirmonicwordintermof degrees [tonality [minorword [0] , 3] , {2 , 5 , 1}] = 
{{2, 5, 8, 0,3}, {7, 10, 2, 5, 8}, {0,3, 7, 10, 2}} 

harmonicwordintermof degrees [tonality [minorword [0] , 4] , {2 , 5 , 1}] = 
{{2, 5, 8, 0,3, 7}, {7, 10, 2, 5, 8,0}, {0,3, 7, 10, 2, 5}} 

harmonicwordintermof degrees [tonality [minorword [0] ,5] ,{2,5, 1}] = 
{{2, 5, 8, 0,3, 7, 10}, {7, 10, 2, 5, 8, 0,3}, {0,3, 7, 10, 2, 5, 8}} 

harmonicwordintermof degrees [tonality [harmonicminorword [0] ,1] ,{2,5, 1}] 
= {{2, 5, 8}, {7, 11, 2}, {0,3, 7}} 

harmonicwordintermof degrees [tonality [harmonicminorword [0] ,2] ,{2,5, 1}] 
= {{2, 5, 8,0}, {7, 11, 2, 5}, {0,3, 7, 11}} 
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harmonicwordintermof degrees [tonality [harmonicminorword [0] ,3] ,{2,5, 1}] 
= {{2, 5, 8, 0,3}, {7, 11, 2, 5, 8}, {0,3, 7, 11, 2}} 

harmonicwordintermof degrees [tonality [harmonicminorword [0] ,4] ,{2,5, l}] 
= {{2, 5, 8, 0,3, 7}, {7, 11, 2, 5, 8,0}, {0,3, 7, 11, 2, 5}} 

harmonicwordintermof degrees [tonality [harmonicminorword [0] ,5] ,{2,5, 1}] 
= {{2, 5, 8, 0,3, 7, 11}, {7, 11, 2, 5, 8, 0,3}, {0,3, 7, 11, 2, 5, 8}} 

harmonicwordintermof degrees [tonality [dorianword [0] ,1] ,{2,5, 1}] = 
{{2, 5, 9}, {7, 10, 2}, {0,3, 7}} 

harmonicwordintermof degrees [tonality [dorianword [0] ,2] ,{2,5, 1}] = 
{{2, 5, 9,0}, {7, 10, 2, 5}, {0,3, 7, 10}} 

harmonicwordintermof degrees [tonality [dorianword [0] ,3] ,{2,5, 1}] = 
{{2, 5, 9, 0,3}, {7, 10, 2, 5, 9}, {0,3, 7, 10, 2}} 

harmonicwordintermofdegrees [tonality [dorianword [0] ,4] ,{2,5,1}] = 
{{2, 5, 9, 0,3, 7}, {7, 10, 2, 5, 9,0}, {0,3, 7, 10, 2, 5}} 

harmonicwordintermofdegrees [tonality [dorianword [0] ,5] ,{2,5, 1}] = 
{{2, 5, 9, 0,3, 7, 10}, {7, 10, 2, 5, 9, 0,3}, {0,3, 7, 10, 2, 5, 9}} 

harmonicwordintermofdegrees [tonality [phrigianword [0] ,1] ,{2,5, 1}] = 
{{1,5, 8}, {7, 10,1}, {0,3, 7}} 

harmonicwordintermofdegrees [tonality [phrigianword [0] ,2] ,{2,5, 1}] = 
{{1,5, 8,0}, {7, 10, 1,5}, {0,3, 7, 10}} 

harmonicwordintermofdegrees [tonality [phrigianword [0] ,3] ,{2,5, 1}] = 
{{1,5, 8, 0,3}, {7, 10, 1,5, 8}, {0,3, 7, 10,1}} 
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harmonicwordintermof degrees [tonality [phrigianword [0] ,4] ,{2,5, 1}] = 
{{1,5, 8, 0,3, 7}, {7, 10, 1,5, 8,0}, {0,3, 7, 10, 1,5}} 

harmonicwordintermof degrees [tonality [phrigianword [0] ,5] ,{2,5, 1}] = 
{{1,5, 8, 0,3, 7, 10}, {7, 10, 1,5, 8, 0,3}, {0,3, 7, 10, 1,5, 8}} 

harmonicwordintermof degrees [tonality [lydianword [0] ,1] ,{2,5, 1}] = 
{{2, 6, 9}, {7, 11, 2}, {0,4, 7}} 

harmonicwordintermof degrees [tonality [lydianword [0] ,2] ,{2,5, 1}] = 
{{2, 6, 9,0}, {7, 11, 2, 6}, {0,4, 7, 11}} 

harmonicwordintermofdegrees [tonality [lydianword [0] ,3] ,{2,5,1}] = 
{{2, 6, 9, 0,4}, {7, 11, 2, 6, 9}, {0,4, 7, 11, 2}} 

harmonicwordintermof degrees [tonality [lydianword [0] ,4] ,{2,5,1}] = 
{{2, 6, 9, 0,4, 7}, {7, 11, 2, 6, 9,0}, {0,4, 7, 11, 2, 6}} 

harmonicwordintermofdegrees [tonality [lydianword [0] ,5] ,{2,5, 1}] = 
{{2, 6, 9, 0,4, 7, 11}, {7, 11, 2, 6, 9, 0,4}, {0,4, 7, 11, 2, 6, 9}} 

harmonicwordintermofdegrees [tonality [mixolydianword [0] ,1] ,{2,5, 1}] 
= {{2, 5, 9}, {7, 10, 2}, {0,4, 7}} 

harmonicwordintermofdegrees [tonality [mixolydianword [0] ,2] ,{2,5, 1}] 
= {{2, 5, 9,0}, {7, 10, 2, 5}, {0,4, 7, 10}} 

harmonicwordintermofdegrees [tonality [mixolydianword [0] ,3] ,{2,5, 1}] 
= {{2, 5, 9, 0,4}, {7, 10, 2, 5, 9}, {0,4, 7, 10, 2}} 

harmonicwordintermofdegrees [tonality [mixolydianword [0] ,4] ,{2,5, 1}] 
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= {{2, 5, 9, 0,4, 7}, {7, 10, 2, 5, 9,0}, {0,4, 7, 10, 2, 5}} 



harmonicwordintermof degrees [tonality [mixolydianword [0] ,5] ,{2,5, 1}] 
= {{2, 5, 9, 0,4,7,10}, {7, 10, 2, 5, 9, 0,4}, {0,4, 7, 10, 2, 5, 9}} 

harmonicwordintermof degrees [tonality [locrianword [0] ,1] ,{2,5, 1}] = 
{{1,5, 8}, {6, 10,1}, {0,3, 6}} 

harmonicwordintermof degrees [tonality [locrianword [0] ,2] ,{2,5, 1}] = 
{{1,5, 8,0}, {6, 10, 1,5}, {0,3, 6, 10}} 

harmonicwordintermof degrees [tonality [locrianword [0] ,3] ,{2,5, 1}] = 
{{1,5, 8, 0,3}, {6, 10, 1,5, 8}, {0,3, 6, 10,1}} 

harmonicwordintermofdegrees [tonality [locrianword [0] ,4] ,{2,5,1}] = 
{{1,5, 8, 0,3, 6}, {6, 10, 1,5, 8,0}, {0,3, 6, 10, 1,5}} 

hcirmonicwordintermof degrees [tonality [locrianword [0] ,5] ,{2,5, 1}] = 
{{1,5, 8, 0,3, 6, 10}, {6, 10, 1,5, 8, 0,3}, {0,3, 6, 10, 1,5, 8}} 

harmonicwordintermofdegrees [tonality [tziganminorword [0] ,1] ,{2,5, 1}] 
= {{2, 6, 8}, {7, 11, 2}, {0,3, 7}} 

harmonicwordintermofdegrees [tonality [tziganminorword [0] ,2] ,{2,5, 1}] 
= {{2, 6, 8,0}, {7, 11, 2, 6}, {0,3, 7, 11}} 

harmonicwordintermofdegrees [tonality [tziganminorword [0] ,3] ,{2,5, 1}] 
= {{2, 6, 8, 0,3}, {7, 11, 2, 6, 8}, {0,3, 7, 11, 2}} 

harmonicwordintermofdegrees [tonality [tziganminorword [0] ,4] ,{2,5, 1}] 
= {{2, 6, 8, 0,3, 7}, {7, 11, 2, 6, 8,0}, {0,3, 7, 11, 2, 6}} 
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harmonicwordintermof degrees [tonality [tziganminorword [0] ,5] ,{2,5, 1}] 
= {{2, 6, 8, 0,3, 7, 11}, {7, 11, 2, 6, 8, 0,3}, {0,3, 7, 11, 2, 6, 8}} 

harmonicwordintermof degrees [tonality [j ewishword [0] , 1] , {2 , 5 , 1}] = 
{{1,5, 8}, {7, 10,1}, {0,4, 7}} 

harmonicwordintermof degrees [tonality [jewishword[0] ,2] ,{2,5,1}] = 
{{1,5, 8,0}, {7, 10, 1,5}, {0,4, 7, 10}} 

harmonicwordintermof degrees [tonality [jewishword[0] ,3] ,{2,5,1}] = 
{{1,5, 8, 0,4}, {7, 10, 1,5, 8}, {0,4, 7, 10,1}} 

harmonicwordintermof degrees [tonality [jewishword[0] ,4] ,{2,5,1}] = 
{{1,5, 8, 0,4, 7}, {7, 10, 1,5, 8,0}, {0,4, 7, 10, 1,5}} 

harmonicwordintermof degrees [tonality [jewishword[0] ,5] ,{2,5,1}] = 
{{1,5, 8, 0,4, 7, 10}, {7, 10, 1,5, 8, 0,4}, {0,4, 7, 10, 1,5, 8}} 

harmonicwordintermof degrees [tonality [maj orpentatonicword [0] ,1] ,{2,5, 1}] 
= {{2, 7,0}, {9, 2, 7}, {0,4, 9}} 

harmonicwordintermof degrees [tonality [maj orpentatonicword [0] ,2] ,{2,5, 1}] 
= {{2, 7, 0,4}, {9, 2, 7,0}, {0,4, 9, 2}} 

harmonicwordintermof degrees [tonality [maj orpentatonicword [0] ,3] ,{2,5, 1}] 
= {{2, 7, 0,4, 9}, {9, 2, 7, 0,4}, {0,4, 9, 2, 7}} 

harmonicwordintermof degrees [tonality [minorpentatonicword [0] ,1] ,{2,5, 1}] 
= {{5, 10, 3}, {0,5, 10}, {3, 7,0}} 

harmonicwordintermof degrees [tonality [minorpentatonicword [0] ,2] ,{2,5, 1}] 
= {{5, 10, 3, 7}, {0,5, 10, 3}, {3, 7, 0,5}} 
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harmonicwordintermof degrees [tonality [minorpentatonicword [0] ,3] ,{2,5, 1}] 
= {{5, 10, 3, 7,0}, {0,5, 10, 3, 7}, {3, 7, 0,5, 10}} 

harmonicwordintermof degrees [tonality [bluesword [0] ,1] ,{2,5, 1}] = 
{{3,6, 10}, {7, 0,5}, {0,5, 7}} 

harmonicwordintermof degrees [tonality [esatonalword [0] ,1] ,{2,5, 1}] = 
{{2,6, 10}, {8, 0,4}, {0,4, 8}} 

harmonicwordintermof degrees [tonality [augment edword [0] ,1] ,{2,5, 1}] 
= {{3,7, 11}, {8, 0,4}, {0,4, 8}} 

harmonicwordintermof degrees [tonality [half wholediminishedword [0] ,1] ,{2,5, 1}] 
= {{1,4, 7}, {6, 9,0}, {0,3, 6}} 

harmonicwordintermof degrees [tonality [half wholediminishedword [0] ,2] ,{2,5, 1}] 
= {{1,4, 7, 10}, {6, 9, 0,3}, {0,3, 6, 9}} 

harmonicwordintermof degrees [tonality [wholehalf diminishedword [0] ,1] ,{2,5, 1}] 
= {{2, 5, 8}, {6, 9,0}, {0,3, 6}} 

harmonicwordintermof degrees [tonality [wholehalf diminishedword [0] ,2] ,{2,5, 1}] 
= {{2, 5, 8, 11}, {6, 9, 0,3}, {0,3, 6, 9}} 

harmonicwordintermof degrees [tonality [wholetonediminishedword [0] ,1] ,{2,5, 1}] 
= {{1,4, 8}, {6, 10,1}, {0,3, 6}} 

harmonicwordintermof degrees [tonality [wholetonediminishedword [0] ,2] ,{2,5, 1}] 
= {{1,4, 8,0}, {6, 10, 1,4}, {0,3, 6, 10}} 

harmonicwordintermof degrees [tonality [wholetonediminishedword [0] ,3] ,{2,5, 1}] 
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= {{1,4, 8, 0,3}, {6, 10, 1,4, 8}, {0,3, 6, 10,1}} 



harmonicwordintermof degrees [tonality [wholetonediminishedwordEO] ,4] ,{2,5, 1}] 
= {{1,4, 8, 0,3, 6}, {6, 10, 1,4, 8,0}, {0,3, 6, 10, 1,4}} 

harmonicwordintermof degrees [tonality [wholetonediminishedword [0] ,5] ,{2,5, 1}] 
= {{1,4, 8, 0,3, 6, 10}, {6, 10, 1,4, 8, 0,3}, {0,3, 6, 10, 1,4, 8}} 

harmonicwordintermof degrees [tonality [bebopmaj orword [0] , 1] , {2 , 5 , 1}] 
= {{2, 5, 8}, {7, 9,0}, {0,4, 7}} 

harmonicwordintermof degrees [tonality [bebopmaj orword [0] ,2] ,{2,5, 1}] 
= {{2, 5, 8, 11}, {7, 9, 0,4}, {0,4, 7, 9}} 

harmonicwordintermof degrees [tonality [bebopdominant [0] ,1] ,{2,5,1}] 
= {{2, 5, 9}, {7, 10,0}, {0,4, 7}} 

hcirmonicwordintermof degrees [tonality [bebopdominant [0] ,2] ,{2,5,1}] 
= {{2, 5, 9, 11}, {7, 10, 0,4}, {0,4, 7, 10}} 

harmonicwordintermof degrees [tonality [chromaticword [0] ,1] ,{2,5,1}] 
= {{1,3, 5}, {4, 6, 8}, {0,2, 4}} 

harmonicwordintermof degrees [tonality [chromaticword [0] ,2] ,{2,5,1}] 
= {{1,3, 5, 7}, {4, 6, 8, 10}, {0,2, 4, 6}} 

harmonicwordintermof degrees [tonality [chromaticword [0] ,3] ,{2,5,1}] 
= {{1,3, 5, 7, 9}, {4, 6, 8, 10,0}, {0,2, 4, 6, 8}} 

harmonicwordintermof degrees [tonality [chromaticword [0] ,4] ,{2,5,1}] 
= {{1,3, 5, 7, 9, 11}, {4, 6, 8, 10, 0,2}, {0,2, 4, 6, 8, 10}} 
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Given two tonalities ti , t2 G T: 
DEFINITION VIII.37 

PIVOTAL DEGREES OF h AND 

V{ti,t2) := RangeichorS^''''^^''\t^)) ^ Range{chorS^''''^^'''^\t^^^ (8.81) 

Such a concept, essential as to Modulation Theory, may be easily computed through the 
following Mathematica expression from the notebook of sectiodXl 

pivotaldegrees [tl_ ,t2_] : =Intersection [tl ,t2] 

(*** "pivotaldegreesintermof degrees [tl ,t2] " give a list of two 
elements, the first being the pivotal degrees of "tl" and "t2" 
expressed as degrees of "tl", the second being the pivotal degrees 
of "tl" and "t2" expressed as degrees of t2" ***) 

pivotaldegreesintermof degrees [tl_ ,t2_] : ={ 

Table [degreeofachordinatonality [Part [pivotaldegrees [tl,t2] ,i] ,tl] ,{i,l. 

Length [pivotaldegrees [tl ,t2] ] }] , 
Table [degreeofachordinatonality [Part [pivotaldegrees [tl ,t2] ,i] ,t2] ,{i,l. 

Length [pivotaldegrees [tl ,t2] ] }] } 

It is important to remark that, obviously, the pivotal degrees depends crucially from the 
level at which the involved tonalities are built: 

Example VIII. 5 

PIVOTAL DEGREES OF MAJOR TONALITIES AT DIFFERENT LEVELS ALONG A 
CLOCKWISE STEP IN THE FIFTHS' CYCLE 

pivotaldegreesintermof degrees[tonality[majorword[0], 1], tonality[maj orword[7], 1]] = 

{{1,3, 5, 6}, {4, 6, 1,2}} (8.82) 
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pivotaldegreesintermofdegrees[tonality[majorword[0], 2], tonalitylmajorwordl?], 2]] = 

{{1,3, 6}, {4, 6, 2}} (8.83) 

pivotaldegreesintermofdegrees[tonality[majorword[0], SljtonalitylmajorwordlT], 3]] = 

{{1,6}, {4, 2}} (8.84) 

pivotaldegreesintermofdegrees[tonality[niajorword[0] , 4] , tonality[majorword[7] , 4]] = 

{{6}, {2}} (8.85) 

pivotaldegreesintermofdegrees[tonality[majorword[0], 5],tonality[majorword[7], 5]] = 

(8.86) 

so that, as to Classical Harmony, the Ic = IVg = C, the IIIc = VIg = Em, the 
Vc = Ig = G7, the Vic = Hg = are four different streets one can follow to 
modulate from C Major to G Major, a thing almost forbidden in that context. 

In Jazz Harmony, where parallel motion is allowed, tonalities are defined at a level > 1 
with the number of possible streets lowering with the considered level: at second level one 
still has that Iq = IVq = C7+, IIIc = ^^g ~ Em7, at third level remains only that 
~ ~ + /9 and that VIq = IIq = Am9, at fourth level remains only that 

VI^^ = 11^^ = Amll. 

Example VIII.6 

PIVOTAL DEGREES OF JEWISH TONALITIES AT DIFFERENT LEVELS ALONG A 
CLOCKWISE STEP IN THE FIFTHS' CYCLE 

pivotaldegreesintermof degrees [tonality [jewishword[0] ,1] , 
tonality [jewishword [7] , 1]] = {{4} ,{7}} 

pivotaldegreesintermof degrees [tonality [jewishword[0] ,2] , 
tonality [jewishword [7] ,2]] = {■[},{}} 



As to the nomenclature for chords I will adopt that of American Jazz Theory exposed in the appendix 
L.2 "Third Chain Classes" of ^ 
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so that parallel motion of a clockwise step in the fifths' cycle has strongly less chances for 
Jewish tonalities than for the major tonalities discussed in the example IVIII.5I at the first 
level one has the only pivotal degree IVc = VIIq = Fm while no pivotal degree exists 
already at the second level. 

Let us now pass to analyze the concept of cadence: with an eye to its application as to 
Modulation Theory, Mazzola (cfr. the 26*^ chapter "Cadences" of has correctly catched 
the structural peculiarity of such harmonic words: they identify a tonality among a suitable 
class of tonahties. 

What is important, at this point, to stress is how such a concept critically depends by a 
context of tonalities among which the cadential one has to identify its tonality. 

Mazzola's definition of cadence may be easily translated also as to our more general 
definition of tonality, namely the definit ior l VI 1 1 . 34l in the following way: 

given a tonality t G T and a context Tcontext ^ T 



DEFINITION VIII.38 

CADENCES OF t W.R.T. THE CONTEXT %antext 

C{t,%ontext) := {C G nW{t) : (C G nW{t) t = U)'iue Context} (8.87) 

To understand how crucial is the role of the context in the definitior lVIII.38l let us observe 
that: 

Theorem VIII. 4 

NO-GO THEOREM FOR CADENCES IN A MULTI-MODE CONTEXT 



HP: 



Xi , X2 G Z^, 



'12 



(8.88) 



^context C T : tonality{xi, n) ,tonality{x2, n) G %. 



context 



(8.89) 



3i : X2 = 'mode{xi,i) 



(8.90) 



TH: 
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C[tonality{xi , n) , Tcontext] = (8.91) 
PROOF: 

Since: 

chord{x2,j,n) = chord{x2, Mod[j + i,\xi\],n) Vj = 1, ■ ■ ■ , |x2| (8.92) 

one has that: 

hw G tonality[xi,n] =^ hw G tonality[x2,n] =^ hw ^ C(tonality[xi , n] , Tcontext) (8.93) 

■ 

An immediate consequence of the theorem IVIII.4I is the following: 
Corollary VIII.3 

C{t , Tgreg) = Vt G %reg (8.94) 

C{t , %i) = Vt G %i (8.95) 

A someway natural choice of the context respect to which to analyze whether an harmonic 
word is a tonality are translational equivalence classes, a fact this one we will analyze more 
deeply when we will discuss Modulation Theory. 

Such an idea may be formalized, anyway, in the following way: 

given a word x G S* a natural number n G N : n < maxlevel{x) 

DEFINITION VIII.39 

NATURAL CONTEXT OF tonality [x,n\ 

Tn.c.{x,n) := {tonality {y , n) : x y} (8.96) 
Given a tonality t E T and a context Tcontext ^ T 
DEFINITION VIII.40 

MINIMAL CADENCES OF t W.R.T. THE CONTEXT %ontext 

MC{t , Tcontext) ■= {Cl G C {t , Tontext) ■ $C2 G C {t , Tontext) , C2 <p Ci} (8.97) 

Cadences and minimal cadences with respect to suitable contexts may be easily computed 
through the following expressions from the Mathematica notebook of section ^ 
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setofthemajortonalities [n_] :=Table [tonality [majorword[i] ,n] ,{i,0,ll}] ; 

setof theminortonalities [rL_] :=Table [tonality [minorword[i] ,n] , {1,0,11}] ; 

setof theclassicaltonalities [n_] : = 

Union [setof themaj ortonalities [n] , setof theminortonalities [n] ] ; 

setof thegregoriantonalities [n_] : = 

Flatten [Table [tonality [mode [majorword[i] , j] ,n] , {j , 1,7}, {1 ,0, 11}] , 1] ; 

setof themazzolatonalities [n_] := 

Table [tonality [Part [mazzolawords , i] ,n] ,{i,l,Length[nonrepetitivewords[7]]}] ; 
setofthejewishtonalities [n_] : =Table [tonality [jewishword [i] ,n] , {1,0, 11}] ; 
truthQ [x_] : =Equal [x , True] 

cadenceQ [hw_, setof tonalities.] := If [Length [ Select [Table [ 

tonalitymembershipQ [hw,Part [setof tonalities , i] ] ,{i , 1 , 
Length [setof tonalities] }] , truthQ] ] ==1 , True , False] 

subharmonicwords [hw_] :=LexicographicSubsets [hw] 

cadences [t_,n_, setof tonalities.] := 

generalizedselect [harmonicwordsupto [t , n] , cadenceQ , setof tonalities] 

cadencesintermof degrees [t_ ,n_ , setof tonalities.] : = 
Table [degreeof achordinatonality [ 

Part [Part [cadences [t ,n, setof tonalities] ,1] ,j] ,t] ,{i,l. 
Length [cadences [t,n, setof tonalities] ] },{j , 1 , 
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LengthE Part [cadences [t ,n, setof tonalities] , i] ]}] 



minimalcadenceQ [hw_ , setof tonalities.] : =And[cadenceQ [hw, setof tonalities] , 

Equal [Table [cadenceQ [prefix [hw, i] , setof tonalities] ,{i , 1 ,Length [hw] -1}] , 
Table [False , {Length [hw] -1}] ] ] 

minimalcadences [t_ ,n_ , setof tonalities.] : = 

generalizedselect [harmonicwords [t ,n] .minimalcadenceQ , setof tonalities] 

minimalcadencesintermof degrees [t_ ,n_ , setof tonalities.] : = 
Table [degreeof achordinatonality [ 

Part [Part [minimalcadences [t ,n, setof tonalities] ,i] ,j] ,t] ,{i,l, 
Length [minimalcadences [t , n , setof tonalities] ] } , { j , 1 , 
Length[ Part [minimalcadences [t ,n, setof tonalities] , i] ] }] 

Remark VIII.2 

THE PERFECT AND PLAGAL HARMONIC PROGRESSIONS: 

Though expressing the idea that the role of a cadence is, in certain contexts, that of 
declaring the underl ying tonality, hystorical tradition has led most of the more common 
Harmony's manuals 81 1, 8^, j2^| to speak about the so-called perfect cadence V — I and 
plagal cadence IV — I. That such harmonic words are not cadences even with respect to 
the little class of major tonalities may be easily verified observing that, for example, the 
harmonic word {Vc , Ic) = 7,11,2,0,4,7 = (G, C) may be seen also as (Jg , IVg) and 
that the harmonic word {IVc , Ic) = 5, 9, 0, 0, 4, 7 = (F , C) may be seen also as {Ip , Vp). 
Such a situation, anyway, changes if one takes in consideration major tonalities at a livel 
greater than the first. 

Example VIII. 7 

CADENCES AND MINIMAL CADENCES OF THE C MAJOR TONALITY W.R.T. THE 
CONTEXT OF MAJOR TONALITIES AT DIFFERENT LEVELS 
Obviously: 
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cadencesintermof degrees [tonality [maj orword [0] , 1] , 1 , setof theclassicaltonalit ies [1] ] 
= {} 

since any one-letter harmonic word in a major tonality x may be also seen as a one letter 
harmonic word in the relative minor tonality. 

Restricting the set of the tonahties to the major ones one finds that: 

cadencesintermof degrees [tonality [maj orword [0] , 1] , 1 , setof themaj ortonalities [1] ] 
= {{7}} 

showing that VIIc is the only one-letter harmonic word to be a cadence w.r.t. the set of 

major tonalities at first level since it is the only diminished triad ({11,2,5} = Bm5—) in 
tonality[majorword[0],l], the other degrees being major triads ({0,4,7} = C , {5,9,0} = 
F , {7, 11, 2} = G) or minor triads ({2, 5, 9} ^ Dm , {4, 7, 11} = Em , {9, 0, 4} = Am). 
Raising the level of the tonalities, anyway, the situation changes: 

cadencesintermof degrees [tonality [maj orword [0] ,2] , 1 , setof themaj ortonalities [2] ] 
{{5}, {7}} 

since at the second level Vq^ = {7, 11, 2, 5} = G7 = is the only first kind major seventh 
chord, iP = {0,4,7,11} = C7+ and IV^^^ = {5,9,0,4} = F7+ being fourth kind 
seventh chords. 

Passing to the third level: 

cadencesintermof degrees [tonality [maj orword [0] ,3] , 1 , setof themaj ortonalities [3] ] 
= {{3}, {5}, {7}} 

one obtains a new one-letter cadential set, i.e. HIq^ — {4,7,11,2,5} = Em9—, that 
is a ninth chord of different kind w.r.t. 11^ = {2,5,9,0,4} = Dm9 and VI§^ = 

{9,0,4,7,11} = Am9. 

Passing to the fourth level: 

cadencesintermof degrees [tonality [maj orword [0] , 4] , 1 , setof themaj ortonalities [4] ] 
= {{l},{3},{4},{5},m} 

one obtains two new one- letter cadences, i.e. I^^^ = {0,4,7,11,2,5} = C7 + /II and 
IV^^^^ = {5, 9, 0, 4, 7, 11} = C7 + /11+ that are ll*'^ chords of different type. 
Passing, finally, to the fifth level: 
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cadencesintermof degrees [tonality [maj orword[0] ,5] , 1 , setof themajortonalities [5] ] 
= «1>,{2},{3},{4},{5},{6},{7}} 

one can that all the one-letter harmonic words become cadential. 

Let us now pass to analyze harmonic words of length two, restricting the analysis to the 
minimal cadences. 

At the I*'' level: 

minimalcadencesintermof degrees [tonality [maj orword [0] ,1] ,2, 

setofthemajortonalities [1] ] = 
{{1,7}, {2, 3}, {2, 5}, {2, 7}, {3, 2}, {3, 4}, {3, 7}, {4, 3}, {4, 5}, {4, 7}, {5, 2}, {5, 4}, {5, 
7}, {6, 7}} 

giving us confirmation of what we saw in the remarl JVIII.2l 
At the 2*^ level: 

minimalcadencesintermof degrees [tonality [maj orword [0] ,2] ,2, 

setofthemajortonalities [2] ] = 
{{1, 2}, {1,4}, {1,5}, {1,7}, {2, 1>, {2, 3}, {2, 5}, {2, 7}, {3, 2}, {3, 4}, {3, 5}, {3, 7}, {4, 
1}, {4, 3}, {4, 5}, {4, 7}, {6, 5}, {6, 7}} 

one sees that the plagal harmonic word (JV^ , J^) = {{5, 9, 0, 4}, {0, 4, 7, 11}} = 
(F7+, C7+) becomes a cadence. 
At the 3*'' level: 

minimalcadencesintermof degrees [tonality [maj orword [0] ,3] ,2, 

setofthemajortonalities [3] ] = 
{{1,2}, {1,3}, {1,4}, {1,5}, {1,7}, {2,1}, {2, 3}, {2, 5}, {2, 6}, {2, 7}, {4,1}, {4, 3}, {4, 
5}, {4, 6}, {4, 7}, {6, 2}, {6, 3}, {6, 4}, {6, 5}, {6, 7}} 

this is still true, while at the 4*'' level: 

minimalcadencesintermof degrees [tonality [maj orword [0] ,4] ,2, 

setofthemajortonalities [4] ] = 
{{2,1}, {2, 3}, {2, 4}, {2, 5}, {2, 6}, {2, 7}, {6,1}, {6, 2}, {6, 3}, {6, 4}, {6, 5}, {6, 7}} 

this is no longer true, since, though remaining a cadence: 
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cadenceQ [harmonicwordintermof degrees [tonality [majorword[0] ,4] ,{4,1}] , 
setof themajortonalities [4] ] = True 

the plagal cadence is no more minimal since we saw previously that, at this level VIq is a 
cadence by itself. For the same reason: 

minimalcadencesintermof degrees [tonality [majorword[0] ,5] ,2, 
setof themajortonalities [5] ] = {} 

no cadential set at the 5*^ level can be minimal. 
Example VIII.8 

CADENCES AND MINIMAL CADENCES OF THE C JEWISH TONALITY W.R.T. THE 
CONTEXT OF JEWISH TONALITIES AT DIFFERENT LEVELS 
At the 1*'^ level one has that: 

cadencesintermof degrees [tonality [j ewishword [0] , 1] , 1 , setof the j ewishtonalities [1] ] 
= {{6}} 

so that the only one-letter cadential set of the C Jewish tonality is Vic = {8, 0, 4} = CS-I-. 
It is sufficient, anyway, to pass to the 2*^* level: 

cadencesintermof degrees [tonality [j ewishword [0] ,2] ,1, 

setofthej ewishtonalities [2]] = {{1}, {2}, {3}, {4}, {5}, {6}, {7}} 

that any one-letter harmonic-word becomes a cadence, such a property continuing, clearly, 
to hold at higher levels. 

Passing to harmonic words of two letters one has that: 

minimalcadencesintermof degrees [tonality [j ewishword [0] ,1] ,2, 

setofthej ewishtonalities [1] ] = 
{{1,2}, {1,3}, {1,4}, {1,5}, {1,6}, {1,7}, {2,1}, {2, 3}, {2, 4}, {2, 5}, {2, 6}, {2, 7}, {3,1}, 
{3, 2}, {3, 4}, {3, 5}, {3, 6}, {3, 7}, {4,1}, {4, 2}, {4, 3}, {4, 5}, {4, 6}, {4, 7}, {5,1}, 
{5, 2}, {5, 3}, {5, 4}, {5, 6}, {5, 7}, {7,1}, {7, 2}, {7, 3}, {7, 4}, {7, 5}, {7, 6}} 
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It is interesting to note that, in particular, that both the perfect harmonic word 
{Vc,Ic) = ({7, 10,1}, {0,4, 7}) = (G'm5-,C) and the plagal harmonic word {IVcJc) = 
({5, 8,0}, {0,4, 7} = {Fm,C) are cadential. 

Let us now analyze the ^uzzulini - Mazzola's theory of modulations in the framework of 
Symmetry's Theory 



Given an arbitrary finite alphabet S, a word G S* and a map g : S ^ S: 
DEFINITION VIII.41 
^ IS A SYMMETRY OF x: 



g{x) = X (8.98) 

The symmetries of a word x constitute a group I will denote as SYM{x). For a systematic 
catalogation of the symmetry groups of all the elements of I demand to the appendix 
L.l "Chords and Third Chain Classes" of P]. 

Given two tonalities ti , t2 G T such that t2 ^ %i.c.(ti): let's say chord^^{t2) = 
Tz chord~^(t2) ■ 

DEFINITION VIII.42 



MAZZOLA MODULATOR FROM ti TO ta: 

a map g : chord^^{ti) — >• chord~^{t2) of the form: 



g = TzohzeZi2,he SYM{chord'\ti)) (8.99) 

DEFINITION VIII.43 

MAZZOLA MODULATION FROM h TO ta: 
a couple {g , c) such that: 

1. g is a modulator from ti to ta 

2. 

c e C[t2, T„.,(t2)] (8.100) 
where Tn,c.(t2) is shortcut notation w.r.t. the definition IVIII.39l of evident meaning. 
DEFINITION VIII.44 
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MAZZOLA TONAL MUSICAL PIECES: 



MVuaz ■= {{hwim{ti,t2) hw2 ■ ■ ■ hwn-im{tn-i,tn) hwn) : 

ti e Tuaz , hwi e HW{ti) , m{ti-i, u) e MuaziU-i, ti)i = l,--- ,n 

neN} (8.101) 

The Muzzulini-Mazzola's theory, introduces, at this point the notion of modulation quan- 
tum based on the analogy between the quanta mediating physical interaction in Particle 
Physics. 

Such an analogy is, anyway, rather superficial since it is based simply on the visualization 
of Feynman diagram's in the perturbative expansions of Quantum Yang-Mills' Field Theories 
while the notion of symmetry, at the heart of the Mazzola-Muzzulini's modulation is in no 
way linked with some kind of "gauging" of a Lie group resulting in the symmetry 

group of the modulation quantum. 

Let us observe, at this point, that, though explicitly thought to be the mathematical 
: ormalization of the three-stages' process through which Schonberg, in the 9^^ chapter of 
3| , codifying the passage from a tonahty ti to a tonality t2 as: 

1. an harmonic word in a tonality ti 

2. an harmonic word belonging both to ti and to ^2 

3. a t2-cadence determining the new tonality t2 

the Muzzulini-Mazzola's approach based on Symmetry Theory and rSesultin in the defini- 
tior lVIII.431 imposes very stronger constraints. 
Given two tonalities ti,t2 G T: 

DEFINITION VIII.45 

MODULATIONS FROM to t2: 

M{tiM) = {{p,c) ■■ peV{ti,t2),ceC[t2,Tn.c.{t2)]} (8.102) 



DEFINITION VIII.46 
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TONAL MUSICAL PIECES: 



MV := {{hwim{ti,t2) hw2 ■ ■ ■ hwn-im{tn-i,tn) hwn) : 

U e r ,hwie nw{ti) m(ti_i, u) e M{U-i, ti)i = l,--- ,n 

neN} (8.103) 

Example VIII.9 

ITERATING THE II-V-I PROGRESSION MOVING ALONG THE FIFTH'S CYCLE 

Though disliked in Classical Music, parallel motion of perfect fifth, and hence modulation 
of one step forward along the fifth's cycles, has been reconsidered in all kinds of Modern 
Music jssl) 13 ! 0|- Such a kind of modulations are, in some way, the simplest ones since 
the tonalities connected by modulation have the highest number of pivotal degrees, though, 
as we have seen in the sectior fVIII.Sl such a number deacreases when the level at which 
tonalities are considered increases. 

We have seen therein that the only pivotal degree persisting when the level of the major 
tonalities is raised from 1 to 4 is the 6^^ degree of the departure-tonality coinciding with the 
2th (^QgYQQ of the arrival tonality. We shall therefore adopt such pivotal degree. As cadence 
we will adopt the celebrated cadential set (w.r.t. the natural context of the major tonalities) 
II-V-I progression. 

We obtain conseguentially the following a tonal musical piece constisting in the parallel 
motion of the II-V-I progression along the fifths' cycle. 

Adopting the expression implemented in the Mathematica notebook of section 1X1 

stepalongf if thscycle [n_] : =Mod [n+7 , 12] 

f if thscycle=NestList [stepalongf if thscycle , , 12] ; 

the required musical piece may be immediately computed in the following way: 

musicalpiece [n_ , 1_] := Join [harmonicwordintermof degrees [ 

tonality [majorword [Part [f if thscycle ,n] ] ,1] ,{2,5,1}-]] 

Flatten [Table [musicalpiece [n , 1] , {n , 1 , 13}] , 1] = 
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{{2, 5, 9}, {7, 11, 2}, {0,4, 7}, {9, 0,4}, {2, 6, 9}, {7, 11, 2}, {4, 7, 11}, {9, 1,4}, {2, 6, 9}, { 

11, 2, 6}, {4, 8, 11}, {9, 1,4}, {6, 9,1}, {11, 3, 6}, {4, 8, 11}, {1,4, 8}, {6, 10,1}, {11, 3, 

6}, {8, 11, 3}, {1,5, 8}, {6, 10,1}, {3, 6, 10}, {8, 0,3}, {1,5, 8}, {10, 1,5}, {3, 7, 10}, { 
8, 0,3}, {5, 8,0}, {10, 2, 5}, {3, 7, 10}, {0,3, 7}, {5, 9,0}, {10, 2, 5}, {7, 10, 2}, {0,4, 
7}, {5, 9,0}, {2, 5, 9}, {7, 11, 2}, {0,4, 7}} 

Flatten [Table [musicalpiece [n, 2] ,{n,l,13}] ,1] = 

{{2, 5, 9,0}, {7, 11, 2, 5}, {0,4, 7, 11}, {9, 0,4, 7}, {2, 6, 9,0}, {7, 11, 2, 6}, {4, 7, 11, 2}, {9, 

1,4, 7}, {2, 6, 9,1}, {11, 2, 6, 9}, {4, 8, 11, 2}, {9, 1,4, 8}, {6, 9, 1,4}, {11, 3, 6, 9}, {4, 
8, 11, 3}, {1,4, 8, 11}, {6, 10, 1,4}, {11, 3, 6, 10}, {8, 11, 3, 6}, {1,5, 8, 11}, {6, 10,1, 

5}, {3, 6, 10,1}, {8, 0,3, 6}, {1,5, 8,0}, {10, 1,5, 8}, {3, 7, 10,1}, {8, 0,3, 7}, {5, 8,0, 

3}, {10, 2, 5, 8}, {3, 7, 10, 2}, {0,3, 7, 10}, {5, 9, 0,3}, {10, 2, 5, 9}, {7, 10, 2, 5}, {0,4, 
7, 10}, {5, 9, 0,4}, {2, 5, 9,0}, {7, 11, 2, 5}, {0,4, 7, 11}} 

Flatten [Table [musicalpiece [n, 3] ,{n,l,13}] ,1] = 

{{2, 5, 9, 0,4}, {7, 11, 2, 5, 9}, {0,4, 7, 11, 2}, {9, 0,4, 7, 11}, {2, 6, 9, 0,4}, {7, 11, 2, 6, 9}, { 

4, 7, 11, 2, 6}, {9, 1,4, 7, 11}, {2, 6, 9, 1,4}, {11, 2, 6, 9,1}, {4, 8, 11, 2, 6}, {9, 1,4, 8, 

11}, {6, 9, 1,4, 8}, {11, 3, 6, 9,1}, {4, 8, 11, 3, 6}, {1,4, 8, 11, 3}, {6, 10, 1,4, 8}, {11, 3, 
6, 10,1}, {8, 11, 3, 6, 10}, {1,5, 8, 11, 3}, {6, 10, 1,5, 8}, {3, 6, 10, 1,5}, {8, 0,3, 6, 

10}, {1,5, 8, 0,3}, {10, 1,5, 8,0}, {3, 7, 10, 1,5}, {8, 0,3, 7, 10}, {5, 8, 0,3, 7}, {10, 2, 

5, 8,0}, {3, 7, 10, 2, 5}, {0,3, 7, 10, 2}, {5, 9, 0,3, 7}, {10, 2, 5, 9,0}, {7, 10, 2, 5, 9}, {0, 
4, 7, 10, 2}, {5, 9, 0,4, 7}, {2, 5, 9, 0,4}, {7, 11, 2, 5, 9}, {0,4, 7, 11, 2}} 

Flatten [Table [musicalpiece [n, 4] ,{n,l,13}] ,1] = 
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{{2, 5, 9, 0,4, 7}, {7, 11, 2, 5, 9,0}, {0,4, 7, 11, 2, 5}, {9, 0,4, 7, 11, 2}, {2, 6, 9, 0,4, 7}, {7, 



11, 2, 6, 9,0}, {4, 7, 11, 2, 6, 9}, {9, 1,4, 7, 11, 2}, {2, 6, 9, 1,4, 7}, {11, 2, 6, 9, 1,4}, {4, 

8, 11, 2, 6, 9}, {9, 1,4, 8, 11, 2}, {6, 9, 1,4, 8, 11}, {11, 3, 6, 9, 1,4}, {4, 8, 11, 3, 6, 9}, { 

1,4, 8, 11, 3, 6}, {6, 10, 1,4, 8, 11}, {11, 3, 6, 10, 1,4}, {8, 11, 3, 6, 10,1}, {1,5, 8, 11, 3, 

6}, {6, 10, 1,5, 8, 11}, {3, 6, 10, 1,5, 8}, {8, 0,3, 6, 10,1}, {1,5, 8, 0,3, 6}, {10, 1,5, 8, 

0,3}, {3, 7, 10, 1,5, 8}, {8, 0,3, 7, 10,1}, {5, 8, 0,3, 7, 10}, {10, 2, 5, 8, 0,3}, {3, 7, 10, 

2, 5, 8}, {0,3, 7, 10, 2, 5}, {5, 9, 0,3, 7, 10}, {10, 2, 5, 9, 0,3}, {7, 10, 2, 5, 9,0}, {0,4, 7, 
10, 2, 5}, {5, 9, 0,4, 7, 10}, {2, 5, 9, 0,4, 7}, {7, 11, 2, 5, 9,0}, {0,4, 7, 11, 2, 5}} 

Let us now analyze how the mathematical structure of Harmony is modified by giving 
up the constraint of the incommensurability of notes by replacing, as underlying start- 
ing scale, the equally-tempered chromatic scale temper edeq{C 2, 12) with the pytagoric scale 
pytagoric{C2)- 

I will here radically depart from Mazzola's way of treating both pytagoric tuning and 
just-intonation tuning whose philosophy could be described as hiding a problem by taking 
the quotient over that: the introduction of the quotient module Jxt of the section 13.4.2.2 
"Just Triadic Degree Interpretations" as well as that of the enharmonic projection enh of 
the section24.1.3 of Q are therein functional to the concealment of a structrural problem 
inside an elegant mathematical abstraction. 

But, please, tell a musician he have to play an equivalence class of notes differing by a 
comma and hear his answer ■ ■ ■ .... 

The net effect of replacing the equally-tempered chromatic scale temper edeqiC 2, 12) with 
the pytagoric scale pytagoric{C2) may be formalized as the following ansatz concerning the 
adopted musical alphabet: 

DEFINITION VIII.47 
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PYTAGORIC ANSATZ: 



Zi2 ^ Z*2 (8.104) 

where: 

^2 ■= {HJ?,^ = 1,--- 12,nGN} (8.105) 



[Hi2 '■= {ord{{scale{uref,3))i2*n+i,i2*n+ii)i+i (8.106) 

where the note [i]^^ is the new note obtained by [i]i2 after n turns of the fifths' cycle and 
where attention has to be kept as to the remarl JVIII.il 

The pytagoric ansatz may be also represented by the following change of musical notation 







[0]l2 


(8.107) 






[l]l2 


(8.108) 






[2]S? 


(8.109) 






[3]S? 


(8.110) 






[4]S? 


(8.111) 








(8.112) 






[6]S? 


(8.113) 




:= [7]S^ 




(8.114) 


GUn) 


:= [8]!^) 




(8.115) 


^(«) 


:= [9]S? 




(8.116) 




:= [10]S? 




(8.117) 




:= [ll]i? 




(8.118) 
(8.119) 



One has by construction that: 
Theorem VIII.5 

P([^]lr'^) = P([^]!?) + Kf VnGN,z = 0,---,ll (8.120) 
Introduced the notation S := Zt,: 
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DEFINITION VIII.48 

FIFTH CYCLES' ORDERING RELATION OVER S: 

1 {™) ^ r 1 (™) 



One has clearly that: 



[^i]i2 </c Kir ^ ni < 712 (8.121) 
klSr^ </c NSr^ ^ mi < m2 (8.122) 

car(i(S) = card{J.\^ = Kq (8.123) 
card(S*) = card( (Z*2)*) = «i (8.124) 

Given the pytagoric alphabet S, a word 5; e 5* and a map g : 5^5: 

DEFINITION VIII.49 

MAP INDUCED BY g ON WORDS: 
the map ^ : S* — > S* : 

g{x) = ■;i^(a;,) (8.125) 

Given a letter z :— [i]^^ e 5 

DEFINITION VIII.50 

PYTAGORIC TRANSLATION BY z : 
the map : S i— > S: 

r.(blS?) = [^+i2jf"^) VmeN,VjG {0,1, ■••,11} (8.126) 

DEFINITION VIII.51 

PYTAGORIC INVERSION: 
the map Inv^''^ : S i— > S: 

Inv{\j]t^^) = [0 Vm e N, Vj e {0, 1, • • • , 11} (8.127) 

DEFINITION VIII.52 
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OPERATOR OF FIFTH CYCLE'S RAISING: 
the map C+ : S i-^ H: 

:= blJr'^ VmGN,VjG{0,l,---,ll} (8.128) 

DEFINITION VIII.53 

OPERATOR OF FIFTH CYCLE'S LOWERING: 
the map C_ : S i— S: 

C-(b]S?) := [J]&"'^ VmeN,VjG{0,l,---,ll} (8.129) 

Once again the effect of the pytagoric ansatz may be concretely analyzed adopting the 
following Mathematica expressions from the notebook of section 1X1 



«DiscreteMath'Combinatorica' ; 
«DiscreteMath'Permutations ' 

putinorder [listof numbers.] : =Permute [listof numbers , Ordering [listof numbers] ] 

pytagoricletter [n_ ,m_] : =-[letter [n] ,m} 

pytagoricalphabetuptof if thcycles [m_] := 

Flatten [Table [pytagoricletter [n, j] , {j , ,m} , {n, , 11}] , 1] 

FROMpytagoricletterTOnote [x_] : = 
Part [putinorder [ 

Take [scaleatf ixedinterval [ref erencenote ,3 , 12*Part [x,2] +11] , -12] ] , 
Part [x,l]+l] 

pytagoricscaleuptof if thcycles [m_] := 

Map [FROMpytagoricletterTOnote , pytagoricalphabetuptof if thcycles [m] ] 
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pytagoricword[w_,n_] :=Table[pytagoricletter[Part [w,i] ,n] ,{i, 1, Length [w]}] 
Example VIII. 10 

THE PART OF THE PYTAGORIC MUSICAL ALPHABET GENERATED BY THE 
FIRTS 10 FIFTHS' CYCLES 

N [pytagoricscaleuptof if thcycles [10] , 225] = 

{132.0000000000000000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

00000000000000000000000000000000000000000000000000000000000000000000000, 
140.958984375000000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
148.500000000000000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
158.578857421875000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
167.062500000000000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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178.401214599609375000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

187.945312500000000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
198.000000000000000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
211. 438476562500000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

222.750000000000000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
237.868286132812500000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
250.593750000000000000000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

133.800910949707031250000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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142.882125120609998703002929687500000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

150.526024818420410156250000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
160.742390760686248540878295898437500000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
169.341777920722961425781250000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

180.835189605772029608488082885742187500000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
190.509500160813331604003906250000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
200.701366424560546875000000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

214.323187680914998054504394531250000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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225.789037227630615234375000000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

241.113586141029372811317443847656250000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
254.012666881084442138671875000000000000000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
135.626392204329022206366062164306640625000000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

144.831503784603306428380165016278624534606933593750000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
152.579691229870149982161819934844970703125000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
162.935441757678719731927685643313452601432800292968750000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

171.652152633603918729932047426700592041015625000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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183.302371977388559698418646348727634176611900329589843750000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

193.108671712804408571173553355038166046142578125000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
203.439588306493533309549093246459960937500000000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
217.247255676904959642570247524417936801910400390625000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

228.869536844805224973242729902267456054687500000000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
244.403162636518079597891528464970178902149200439453125000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
257 . 478228950405878094898071 140050888061523437500000000000000000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

137.476778983041419773813984761545725632458925247192382812500000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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146.807478337847453635415617516357666971771323005668818950653076171875000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

154.661376355921597245540732856738941336516290903091430664062500000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
165.158413130078385339842569705902375343242738381377421319484710693359375000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
173 . 99404840041 1796901233324463831309003580827265977859497070312500000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

185.803214771338183507322890919140172261148080679049598984420299530029296875\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
195.743304450463271513887490021810222629028430674225091934204101562500000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
206.215168474562129660720977142318588448688387870788574218750000000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

220.211217506771180453123426274536500457656984508503228425979614257812500000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 



110 



231.992064533882395868311099285108412004774436354637145996093750000000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

247.737619695117578009763854558853563014864107572066131979227066040039062500\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 
260.991072600617695351849986695746963505371240898966789245605468750000000000\ 

oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooox 

000000000000000000000000000000000000000000000000000000000000000000000000, 

132.275921453423374782068737773489439041383741030299958651994529645889997482\ 

299804687500000000000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

139.352411078503637630492168189355129195861060509287199238315224647521972656\ 

250000000000000000000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

148.810411635101296629827329995175618921556708659087453483493845851626247167\ 

587280273437500000000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

156.771462463316592334303689213024520345343693072948099143104627728462219238\ 

281250000000000000000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

167.411713089488958708555746244572571286751297241473385168930576583079528063\ 

535690307617187500000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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176.367895271231166376091650364652585388511654707066611535992706194519996643\ 

066406250000000000000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

188.338177225675078547125214525144142697595209396657558315046898655964469071\ 

477651596069335937500000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

198.413882180135062173103106660234158562075611545449937977991794468834996223\ 

449707031250000000000000000000000000000000000000000000000000000000000000000000\ 
000000000000000000000000000000000000000000000000000000000000000000000000, 

209.028616617755456445738252284032693793791590763930798857472836971282958984\ 

375000000000000000000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

223.215617452651944944740994992763428382335062988631180225240768777439370751\ 

380920410156250000000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

235.157193694974888501455533819536780518015539609422148714656941592693328857\ 

421875000000000000000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

251.117569634233438062833619366858856930126945862210077753395864874619292095\ 

303535461425781250000000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

134.080596872575324473490509168779375025924714502112656261395692500193455032\ 

331257825717329978942871093750000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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141.253632919256308910343910893858107023196407047493168736285173991973351803\ 

608238697052001953125000000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

150.840671481647240032676822814876796904165303814876738294070154062717636911\ 

372665053931996226310729980468750000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

158.910337034163347524136899755590370401095957928429814828320820740970020779\ 

059268534183502197265625000000000000000000000000000000000000000000000000000000\ 
000000000000000000000000000000000000000000000000000000000000000000000000, 

169.695755416853145036761425666736396517185966791736330580828923320557341525\ 

294248185673495754599571228027343750000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

178.774129163433765964654012225039166701232952669483541681860923333591273376\ 

441677100956439971923828125000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

190.907724843959788166356603875078446081834212640703371903432538735627009215\ 

956029208882682723924517631530761718750000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

201.120895308862986710235763753169062538887071753168984392093538750290182548\ 

496886738575994968414306640625000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

211.880449378884463365515866340787160534794610571239753104427760987960027705\ 

412358045578002929687500000000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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226.261007222470860049015234222315195356247955722315107441105231094076455367\ 

058997580897994339466094970703125000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

238.365505551245021286205349633385555601643936892644722242481231111455031168\ 

588902801275253295898437500000000000000000000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

254.543633125279717555142138500104594775778950187604495871243384980836012287\ 

941372278510243631899356842041015625000000000000000000000000000000000000000000\ 
000000000000000000000000000000000000000000000000000000000000000000000000, 

135.909893956295591380150355688410339056305801772531990349221016345968837615\ 

656196575464331743887669290415942668914794921875000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

143.180793632969841124767452906308834561375659480527528927574404051720256911\ 

967021906662012042943388223648071289062500000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

152.898630700832540302669150149461631438344026994098489142873643389214942317\ 

613221147397373211873627951717935502529144287109375000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

161.078392837091071265363384519597438881547616915593470043521204558185289025\ 

962899644994763548311311751604080200195312500000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

172.010959538436607840502793918144335368137030368360800285732848812866810107\ 

314873790822044863357831445682677440345287322998046875000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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181.213191941727455173533807584547118741741069030042653798961355127958450154\ 

208262100619108991850225720554590225219726562500000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

193.512329480741183820565643157912377289154159164405900321449454914475161370\ 

729233014674800471277560376393012120388448238372802734375000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

203.864840934443387070225533532615508584458702658797985523831524518953256423\ 

484294863196497615831503935623914003372192382812500000000000000000000000000000\ 
000000000000000000000000000000000000000000000000000000000000000000000000, 

214.771190449454761687151179359463251842063489220791293391361606077580385367\ 

950532859993018064415082335472106933593750000000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

229.347946051248810454003725224192447157516040491147733714310465083822413476\ 

419831721096059817810441927576903253793716430664062500000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

241.617589255636606898045076779396158322321425373390205065281806837277933538\ 

944349467492145322466967627406120300292968750000000000000000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

258.016439307654911760754190877216503052205545552541200428599273219300215160\ 

972310686233067295036747168524016160517930984497070312500000000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

137.764148624472971684758158068474729534954474639503809896813137336574602186\ 

778916862986259319884122572646978355237479263450950384140014648437500000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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145.134247110555887865424232368434282966865619373304425241087091185856371028\ 

046924761006100353458170282294759090291336178779602050781250000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

154.984667202532093145352927827034070726823783969441786133914779503646427460\ 

126281470859541734869637894227850649642164171382319182157516479492187500000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

163.276027999375373848602261414488568337723821794967478396222977584088417406\ 

552790356131862897640441567581603976577753201127052307128906250000000000000000\ 
000000000000000000000000000000000000000000000000000000000000000000000000, 

174.357750602848604788522043805413329567676756965622009400654126941602230892\ 

642066654716984451728342631006331980847434692805109079927206039428710937500000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

183.685531499297295579677544091299639379939299519338413195750849782099469582\ 

371889150648345759845496763529304473649972351267933845520019531250000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

196.152469428204680387087299281089995763636351586324760575735892809302509754\ 

222324986556607508194385459882123478453364029405747714918106794357299804687500\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

206.646222936709457527137237102712094302431711959255714845219706004861903280\ 

168375294479388979826183858970467532856218895176425576210021972656250000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

217.701370665833831798136348552651424450298429059956637861630636778784556542\ 

070387141509150530187255423442138635437004268169403076171875000000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 
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232.477000803798139718029391740551106090235675954162679200872169255469641190\ 

189422206289312602304456841341775974463246257073478773236274719238281250000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

244.914041999063060772903392121732852506585732692451217594334466376132626109\ 

829185534197794346460662351372405964866629801690578460693359375000000000000000\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

261.536625904272907182783065708119994351515135448433014100981190412403346338\ 

963099982075476677592513946509497971271152039207663619890809059143066406250000\ 
000000000000000000000000000000000000000000000000000000000000000000000000, 

132.552419669335077348828711722363469999469332788325013586844963849981352597\ 

927941148351834679619258121725992308950722037190017663782493073654222826007753\ 

610610961914062500000000000000000000000000000000000000000000000000000000, 

139.643701380040246095885391773354108312198144830498779745811978376935087510\ 

574291909374772337376666992435613296672365602965615316577441262779757380485534\ 

667968750000000000000000000000000000000000000000000000000000000000000000, 

147.114352071153510290315474460817496822727263689743570431801919606976882315\ 

666743739917455631145789094911592608840023022054310786188580095767974853515625\ 

000000000000000000000000000000000000000000000000000000000000000000000000, 

157.099164052545276857871065745023371851222912934311127214038475674051973449\ 

396078398046618879548750366490064958756411303336317231149621420627227053046226\ 

501464843750000000000000000000000000000000000000000000000000000000000000, 

165.503646080047699076604908768419683925568171650961516735777159557848992605\ 

125086707407137585039012731775541684945025899811099634462152607738971710205078\ 

125000000000000000000000000000000000000000000000000000000000000000000000, 
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176.736559559113436465104948963151293332625777051100018115793285133308470130\ 

570588197802446239492344162301323078600962716253356885043324098205630434677004\ 

814147949218750000000000000000000000000000000000000000000000000000000000, 

186.191601840053661461180522364472144416264193107331706327749304502580116680\ 

765722545833029783168889323247484395563154137287487088769921683706343173980712\ 

890625000000000000000000000000000000000000000000000000000000000000000000, 

198.828629504002616023243067583545204999203999182487520380267445774972028896\ 

891911722527752019428887182588988463426083055785026495673739610481334239011630\ 
415916442871093750000000000000000000000000000000000000000000000000000000, 

209.465552070060369143828087660031162468297217245748169618717967565402631265\ 

861437864062158506065000488653419945008548404448422974866161894169636070728302\ 

001953125000000000000000000000000000000000000000000000000000000000000000, 

220.671528106730265435473211691226245234090895534615355647702879410465323473\ 

500115609876183446718683642367388913260034533081466179282870143651962280273437\ 

500000000000000000000000000000000000000000000000000000000000000000000000, 

235.648746078817915286806598617535057776834369401466690821057713511077960174\ 

094117597069928319323125549735097438134616955004475846724432130940840579569339\ 

752197265625000000000000000000000000000000000000000000000000000000000000, 

248.255469120071548614907363152629525888352257476442275103665739336773488907\ 

687630061110706377558519097663312527417538849716649451693228911608457565307617\ 

187500000000000000000000000000000000000000000000000000000000000000000000, 

134.360867426855283434560545704735879631019557354660479632580708376689796459\ 

189268058435911891882969199119917065927659359295463900104965022193668046715520\ 

070222282811300829052925109863281250000000000000000000000000000000000000, 
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141.548897371501862383734566668363725043378628324251369489467742158158797915\ 

853714497776104709144198004011106044763295456706332339205230640664934238515115\ 

794143639504909515380859375000000000000000000000000000000000000000000000, 

149.121472128001962017432300687658903749402999386865640285200584331229021672\ 

668933791895814014571665386941741347569562291838769871755304707861000679258722\ 

811937332153320312500000000000000000000000000000000000000000000000000000, 

159.242509542939595181701387501909190673800956864782790675651209927928647655\ 

335428809998117797787222754512494300358707388794623881605884470748051018329505\ 
268411594443023204803466796875000000000000000000000000000000000000000000, 

167.761656144002207269611338273616266718078374310223845320850657372632649381\ 

752550515882790766393123560309459016015757578318616105724717796343625764166063\ 

163429498672485351562500000000000000000000000000000000000000000000000000, 

179.147823235807044579414060939647839508026076472880639510107611168919728612\ 

252357411247882522510625598826556087903545812393951866806620029591557395620693\ 

426963043748401105403900146484375000000000000000000000000000000000000000, 

188. 73186316200248317831275555781830005783817109900182598595698954421 1730554\ 

471619330368139612192264005348141393017727275608443118940307520886578984686821\ 

058858186006546020507812500000000000000000000000000000000000000000000000, 

201. 541301 140282925151840818557103819446529336031990719448871062565034694688\ 

783902087653867837824453798679875598891489038943195850157447533290502070073280\ 

105333424216951243579387664794921875000000000000000000000000000000000000, 

212.323346057252793575601850002545587565067942486377054234201613237238196873\ 
780571746664157063716297006016659067 144943185059498508807845960997401357772673\ 
691215459257364273071289062500000000000000000000000000000000000000000000, 
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223.682208192002943026148451031488355624104499080298460427800876496843532509\ 

003400687843721021857498080412612021354343437758154807632957061791501018888084\ 

217905998229980468750000000000000000000000000000000000000000000000000000, 

238.863764314409392772552081252863786010701435297174186013476814891892971483\ 

003143214997176696680834131768741450538061083191935822408826706122076527494257\ 

902617391664534807205200195312500000000000000000000000000000000000000000, 

251. 6424842160033109044170074104244000771 17561465335767981275986058948974072\ 

628825773824186149589685340464188524023636367477924158587076694515438646249094\ 
745144248008728027343750000000000000000000000000000000000000000000000000, 

136.193988315954968802921850147000390256860093269573440468632362824280552139\ 

411933529364088920086244648264861765734980044485741864272466118544817238644681\ 

361463547133484885964804789182380773127079010009765625000000000000000000, 

143.480086456314699644230426492313168336445201139962143045143559189365519949\ 

339320919823896146263698065661747374601460458388271264418729738055445321370528\ 

512488345951325641181028913706541061401367187500000000000000000000000000, 

151.155975855212193863880613917827864584897002023993039586653296923776021016\ 

587926565740400878368340349009906699168616779207396887618085649967876552554960\ 

079000068162713432684540748596191406250000000000000000000000000000000000, 

161.415097263354037099759229803852314378500851282457410925786504088036209943\ 

006736034801883164546660323869465796426643015686805172471070955312375986541844\ 

576549389195241346328657527919858694076538085937500000000000000000000000, 

170 . 0504728371 13718096865690657556347658009127276992169534984959039248023643\ 

661417386457950988164382892636145036564693876608321498570346356213861121624330\ 

088875076683052611770108342170715332031250000000000000000000000000000000, 
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181.591984421273291737229133529333853675813457692764587291509817099040736185\ 

882578039152118560114992864353149020979973392647655819029954824726422984859575\ 

148618062844646514619739718909841030836105346679687500000000000000000000, 

191.306781941752932858973901989750891115260268186616190726858078919154026599\ 

119094559765194861684930754215663166135280611184361685891639650740593761827371\ 

349984461268434188241371884942054748535156250000000000000000000000000000, 

204.290982473932453204382775220500585385290139904360160702948544236420828209\ 

117900294046133380129366972397292648602470066728612796408699177817225857967022\ 
042195320700227328947207183773571159690618515014648437500000000000000000, 

215.220129684472049466345639738469752504667801709943214567715338784048279924\ 

008981379735844219395547098492621061902190687582406896628094607083167982055792\ 

768732518926988461771543370559811592102050781250000000000000000000000000, 

226.733963782818290795820920876741796877345503035989559379979945385664031524\ 

881889848610601317552510523514860048752925168811095331427128474951814828832440\ 

118500102244070149026811122894287109375000000000000000000000000000000000, 

242.122645895031055649638844705778471567751276923686116388679756132054314914\ 

510104052202824746819990485804198694639964523530207758706606432968563979812766\ 

864824083792862019492986291879788041114807128906250000000000000000000000, 

255.075709255670577145298535986334521487013690915488254302477438558872035465\ 

492126079686926482246574338954217554847040814912482247855519534320791682436495\ 

133312615024578917655162513256072998046875000000000000000000000000000000} 

(where we have shown to take such an high number of decimals to remark that only rational 
numbers are involved) that, graphically represented, appear as: 

ListPlot [N [pytagoricscaleuptof if thcycles [10] , 225] ] = 
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260 - 
240 - 
220 - 
200 - . 
180 - . 
160 - . 



20* "40 



6e 



iO 100 • 120 



revealing, also in a pictorial way: 



ListPlot [Table [ 



FROMpytagoricletterTOnote [Part [pytagoricalphabetuptof if thcycles [100] , i] ] , { 
i , 1 , Length [pytagoricalphabetuptof if thcycles [100] ] }] , 
Plot Joined\ [Rule] True] = 




ListPlotSD [Table [FROMpytagoricletterTOnote [{i , n}] , {i , , 11} , {n , , 10}] ] 
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the obvious fact that the ordering relation < fc over doesn't correspond to the natural 
ordering relation < among numbers 

It is then interesting to see how all the previous formalization of Harmony is affected by 
the pytagoric ansatz; 

given a word x = {xi , ■ ■ ■ , x\.g\) G a natural number n G N: 



DEFINITION VIII.54 



PYTAGORIC WORD OF x AT CYCLE n: 




(n) 




(8.130) 



Given a pytagoric word x G H* 



u: 



'k=i 



and an integer i G {1, ■ ■ ■ ,\x\}: 



DEFINITION VIII.55 



MODE OF X of i*'^ DEGREE : 



mode{x, i) := Sly^i{x) 



(8.131) 



where Scyd denotes again the operator of cyclic shift. 
Given furthermore an integer n G N 



DEFINITION VIII.56 
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CHORD OF X of i*^ DEGREE AT LEVEL n 



chord{x , i , n) :— ■^^Qmode{x , i)2j+i (8.132) 

where • denotes the concatenation operator while Xj denotes the j*^ letter of the pytagoric 
word X. 

Exactly as without the pytagoric ansatz, there exists a certain maximum level 
maxlevel{x) such that chord{x , i , n) for n > maxlevel{x) simply adds notes already con- 
tained in the chord, again given by: 

1^1 _ 5 f— l#l — 1 . \x\ 
maxlevel{x) = 1 + Int{^ — ) - ^ ^— Int{^) (8.133) 

Let us now analyze how the previously discussed mathematical formalization of Harmony 
is affected by the pytagoric ansatz. 

Given a pytagoric word x e — Ufe=i "atr ^'^^ ^ number n e N+ : n < maxlevel{x): 

DEFINITION VIII.57 

PYTAGORIC TONALITY OF THE PYTAGORIC WORD x e S^^ - (JLi -nr AT THE 
LEVEL n (n-TONALITY OF x) : 

pytagorictonality[x , n] := (x , chord^'^^), where chord^'^^ : {1, • • • , ^ is the 
map such that: 

chord^"'\i) = chord{x , i , n) (8.134) 

I will denote the set of all the pytagoric n-tonahties by while I will denote by T^^/* 
the set of all the pytagoric tonalities at any level. 
One has clearly that: 

4 

card{T,''y') = card(5*^^ - (J S^^) ^ H^ (8.135) 

k=l 

card{T) = card{[jT^y') = (8.136) 

Given a pytagoric n-tonality t G ^^^*: 
DEFINITION VIII.58 
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PYTAGORIC HARMONIC WORDS OF t: 

nW^y\t) ■= {Range{chorS''\t)y (8.137) 
Given two pytagoric tonalities ti , ^2 G T^v^: 
DEFINITION VIII.59 

PYTAGORIC PIVOTAL DEGREES OF ti AND tg: 

V^y\h,t2) := Range[chord^^^''^^^'^\h)) ^ Range^chord^^''''^^^*^'^^ (8.138) 

Given a pytagoric tonality t E T^^^ and a context Ti^^text ^ T^^^ 
DEFINITION VIII.60 

PYTAGORIC CADENCES OF t W.R.T. THE CONTEXT T^ontext 
C^'y'it^Zontext) := {c G 7^>V^^*(t) : (c G 7^W^^*(t) ^ t = n ) V« G r,„„} (8.139) 
Given a pytagoric word x G and a natural number n G N : n < maxlevel{x) 
DEFINITION VIII.61 

PYTAGORIC NATURAL CONTEXT OF pytagorictonality[x,n] 

'■— {pytagorictonality{y , n) : x (8.140) 

where is the pytagorical translational equivalence as induced by the map T^y^ obtained 
applying the definitioi lVIII.49l to the alphabet H. 

DEFINITION VIII.62 

PYTAGORIC MINIMAL CADENCES OF t W.R.T. THE CONTEXT T^2Lt 

MC{t , rj^^l^t) ■= {Ci G C{t,%ontext) ■■ $C2 eC{t,r£^l^t),C2 <p Ci} (8.141) 

Given two pytagoric tonalities ti,t2 e T^y^: 
DEFINITION VIII.63 
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PYTAGORIC MODULATIONS FROM h to ts: 

M^'y'ih, h) = {{p,c) -.pe V^'y'ih ,t2),ce C'y'ih) } (8.142) 

DEFINITION VIII.64 

PYTAGORIC TONAL MUSICAL PIECES: 

j^-pPyi ■— {(hwim{ti,t2) hw2 ■ ■ ■ hwn-im{tn-i,tn) hwn) ■ 

nen} (8.143) 

Remark VIII.3 

PYTAGORICALLY-TUNED AND JUST-TUNED EULER NOTES VERSUS PY- 
TAGORIC AND JUST SCALES 

It is important, at this point to analyze the relation existing among the pytagorical Euler 
notes of definitior lVI.91 and the pytagoric scale pytagoric{vrefi'i) as well as the relation ex- 
isting among the just-tuned Euler notes of definitior lVI. 71 and the celebrated just-intonation 
scale ^'^ we are going to introduce. 

Looking at the pitches obtained by pytagoric Euler points lying in a cube of side = 10 
having as center the origin (i.e. the Euler point of Vref'- 

N [Map [FROMeulerpointTOpitch, Flatten [Table [x*octaveepoint+y*f if thpoint , 
{x,-5,5},{y,-5,5}] ,1]]] = 

{-15509 . 8 , -13607 . 8 , -11705 . 9 , -9803 . 91 , -7901 . 96 , -6000 . , -4098 . 04 , -2196 . 09 , -294 . \ 
135,1607.82, 



often called the simple-ratios' scale or the Zarlinian scale, this last name being, anyway, based to an 
erroneous hystorical attribution to Gioseffo Zarlino (eft', the voice "Scale Musicali (le) antiche e moderne" 



of 



H 
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3509 . 78 , -14309 . 8 , -12407 . 8 , -10505 . 9 , -8603 . 91 , -6701 . 96 , -4800 . , -2898 . 04 , -996 . \ 
09,905.865,2807.82, 

4709 . 78 , -13109 . 8 , -11207 . 8 , -9305 . 87 , -7403 . 91 , -5501 . 96 , -3600 . , -1698 . 04 , 203 . 91 , 
2105.87,4007.82, 

5909 . 78 , -11909 . 8 , -10007 . 8 , -8105 . 87 , -6203 . 91 , -4301 . 96 , -2400 . , -498 . 045 , 
1403 . 91 , 3305 . 87 , 5207 . 82 , 

7109 . 78 , -10709 . 8 , -8807 . 82 , -6905 . 87 , -5003 . 91 , -3101 . 96 , -1200 . , 701 . 955 , 2603 . 91 , 
4505 . 87 , 6407 . 82 , 8309 . 78 , -9509 . 78 , -7607 . 82 , -5705 . 87 , -3803 . 91 , -1901 . 96 , , 
1901 . 96 , 3803 . 91 , 5705 . 87 , 7607 . 82 , 

9509 . 78 , -8309 . 78 , -6407 . 82 , -4505 . 87 , -2603 . 91 , -701 . 955 , 1200 . , 3101 . 96 , 5003 . 91 , 
6905 . 87 , 8807 . 82 , 10709 . 8 , -7109 . 78 , -5207 . 82 , -3305 . 87 , -1403 . 91 , 498 . 045 , 2400 . , 

4301 . 96 , 6203 . 91 ,8105 . 87 , 10007 . 8 , 11909 . 8 , -5909 . 78 , -4007 . 82 , -2105 . 87 , -203 . 91 , 
1698 . 04 , 3600 . , 5501 . 96 , 7403 . 91 , 9305 . 87 , 11207 . 8 , 

13109 . 8 , -4709 . 78 , -2807 . 82 , -905 . 865 , 996 . 09 , 2898 . 04 ,4800 . , 6701 . 96 , 8603 . 91 , 
10505 . 9 , 12407 . 8 , 14309 . 8 , -3509 . 78 , -1607 . 82 , 294 . 135 , 2196 . 09 , 4098 . 04 , 6000 . , 
7901 . 96 , 9803 . 91 , 11705 . 9 , 13607 . 8 , 15509 . 8} 

and comparing it with the first 100 pitchs of the pytagoric scale: 
N [Map [FROMnoteTOpitch , scaleatf ixedinterval [132 , 3 , 100] ] ] = 

{-15509 . 8 , -13607 . 8 , -1 1705 . 9 , -9803 . 91 , -7901 . 96 , -6000 . , -4098 . 04 , -2196 . 09 , -294 . \ 
135,1607.82, 

3509 . 78 , -14309 . 8 , -12407 . 8 , -10505 . 9 , -8603 . 91 , -6701 . 96 , -4800 . , -2898 . 04 , -996 . \ 
09,905.865,2807.82, 

4709 . 78 , -13109 . 8 , -1 1207 . 8 , -9305 . 87 , -7403 . 91 , -5501 . 96 , -3600 . , -1698 . 04 , 203 . 91 , 
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2105.87,4007.82, 

5909 . 78 , -1 1909 . 8 , - 10007 . 8 , -8105 . 87 , -6203 .91, -4301 . 96 , -2400 . , -498 . 045 , 
1403 . 91 , 3305 . 87 , 5207 . 82 , 

7109.78,-10709.8,-8807.82,-6905.87,-5003.91,-3101.96,-1200. ,701.955,2603.91, 
4505 . 87 , 6407 . 82 , 8309 . 78 , -9509 . 78 , -7607 . 82 , -5705 . 87 , -3803 . 91 , -1901 . 96 , , 
1901 . 96 , 3803 . 91 , 5705 . 87 , 7607 . 82 , 

9509 . 78 , -8309 . 78 , -6407 . 82 , -4505 . 87 , -2603 . 91 , -701 . 955 , 1200 . , 3101 . 96 , 5003 . 91 , 
6905 . 87 , 8807 . 82 , 10709 . 8 , -7109 . 78 , -5207 . 82 , -3305 . 87 , -1403 . 91 , 498 . 045 , 2400 . , 

4301 . 96 , 6203 . 91 , 8105 . 87 , 10007 . 8 , 1 1909 . 8 , -5909 . 78 , -4007 . 82 , -2105 . 87 , -203 . 91 , 
1698 . 04 , 3600 . , 5501 . 96 , 7403 . 91 , 9305 . 87 , 1 1207 . 8 , 

13109 . 8 , -4709 . 78 , -2807 . 82 , -905 . 865 , 996 . 09 , 2898 . 04 , 4800 . , 6701 . 96 , 8603 . 91 , 
10505 . 9 , 12407 . 8 , 14309 . 8 , -3509 . 78 , -1607 . 82 , 294 . 135 , 2196 . 09 , 4098 . 04 , 6000 . , 
7901 . 96 , 9803 . 91 , 11705 . 9 , 13607 . 8 , 15509 . 8} 



one is euristically led to discover that the pytagoric Euler notes and the notes of the pytagoric 
scales are different concepts: 

Intersection [ 

N [Map [FROMeulerpointTOpitch, Flatten [Table [x*octaveepoint+y*f if thpoint 
,{x,-5,5},{y,-5,5}] ,1]]] , 
N [Map [FROMnoteTOpitch , scaleatf ixedinterval [132 , 3 , 100] ] ] = 

{0} 

The situation is subtler as to just intonation scales: 
DEFINITION VIII.65 

DIATONIC JUST INTONATION SCALE OF C MAJOR: 
the scale {ui , • • • , u^} specified by the following table: 
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Til 7/1 (; pTif ^ 




1 


n 


148 ^ 


9 

8 


2ns 91 




5 
4 


^^86 S14 


176 


4 
3 


498 045 


198 


3 
2 


701.955 


220 


5 
3 


719.354 


247.5 


15 
8 


1088.27 



Behind the introduction of the scale of definit ior l VI 1 1 . 6 5l laid a great musical innova- 
tion (that as many ones had to face the opposition of the Catholic Church) , namely the 
acceptance of the third-major interval as a consonant one. 

Tonal Harmony was codified assuming the axion JVTTl such an innovation assumed as 
cornerstone the answe JVH to the question IV. II 

Since: 

• harmonic{vref , 1) = 2z/re/ had been already used as a basis for the assumption of the 
axion JvTsl with the consequential constraint of the rescaling to scale — range{uref) 

• harmonic{vref , 2) = Sz/^e/ had been used in the construction of the pytagoric scale 
to fix the perfect fifth interval to the value mi(z/per/erf fifth , ^ref) = | 

• harmonic{vref , 3) = Auref couldn't add anything new w.r.t. the consequences in- 
duced by harmoniciyref , 1) = 2i/re/ 

it was clear that the next protagonist had to be harmonic{v^(,f , 2) = ^Vref- 

One could, at this point, thought to introduce scaleiyref 5) but this would have signified 

to throw away the consequences induced by harmonic{vref , 3). 

Behind the introduction of the just intonation diatonic scales laid an other idea, namely 

the pytagorical creed that the musical consonant intervals correspond to simple ratios of 

integer numbers. 

Given a rational number r = ^n,m & N , m ^ measures of its "simplicity" such as 
the following: 

DEFINITION VIII.66 
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EMPIRICAL MEASURE OF SIMPLICITY OF r: 

SSM{r) := — -i -^^^ (8.144) 

gca[n, mjm-n 

(whose sometimes claimed link with physical consonance we confuted in the exampl jVII.2|) 
gave to the pytagorical major third intervals too low values: 

^5A^(mi(E(°) , = ^5M(mi(A(°) , 

£5M(mi(5W, G^o))) = SSM(—) =^ = 0.0279707 (8.145) 

specially if compared with: 

= ^ = 0-45 (8.146) 

The definitior lVIII.65] was assumed as a sort of compromize between the necessity of imple- 
menting the new ratio | for the third major's interval trying to conserve as much as possible 
the ratio | for the perfect fifth's interval, a compromise lacking of the mathematical elegance 
of the pytagoric scale. 

So, while preserving the ratio | for the C — G, the E — B , F — C perfect fifths' intervals 
it gives a ratio of || for the D — A fifth interval for which: 

40 67 

ESMi—) = = 0.062037 (8.147) 

^27^ 1080 ^ ^ 

Given the empirical nature of such a compromise, it doesn't astonish that the attempt of 
completing the diatonic just-intonation scale adding the 5 lacking notes necessary to obtain 
a putative chromatic just intonation scale following the same principle of looking for simple 
ratios, was performed by different authors in many ways. 

Let us observe, at this point, that: 

Theorem VIII. 6 

THE DIATONIC JUST-INTONATION MAJOR SCALE IS MADE OF JUST-EULER 
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NOTES: 



VEuleril^ref) — 


(0,0,0) 


(8.148) 


9 

'PEulery-l^ref) = 
O 


(-3,2,0) 


(8.149) 


5 


(-2,0,1) 


(8.150) 


A 

VEuleri-^Kef) = 


(2,-1,0) 


(8.151) 


VEuleri^^ref) = 


(-1,1,0) 


(8.152) 


VEuleri-^Kef) = 


(0, -1,1) 


(8.153) 


_ ,15 

r'Euleri — Kef) — 


(-3,1,1) 


(8.154) 






(8.155) 



Theorer dVIII.6l suggests to choice the other 5 notes among the simple-ratio's just Euler 
notes; one obtains in this way the following (cfr. the appendix K " Just and Well- Tempered 
Tuning" of Q): 

DEFINITION VIII.67 

VOGEL'S CHROMATIC JUST-INTONATION SCALE OF C MAJOR 
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where: 



Cjl = f„/ (8.166) 

= g-../ (8.157) 

9 

^ just g ' 



D% = |^.e/ (8.158) 



6 



= 7^.e/ (8.159) 



5 
5 



<L = >r-e/ (8.160) 



= i^-/ (8.161) 



4 

4 

just 2 ' 

i^i2 = |-.e/ (8.162) 

GfL = l^ref (8.163) 

GjS = ^^.e/ (8.164) 

= l^ref (8.165) 

= f^ref (8.166) 

<L = f (8-167) 

(8.168) 



VEuler{Cli'2) = (4,-1,-1) 
VEuleriDlZ) = (1,1,-1) 

7'i...e.(F«i2) = (-5,2,1) 

VEuleriGliSt) = (3,0,-1) 

7'^.^e.(>lS) = (4,-2,0) 
Visualized in Euler's space Vogel's chromatic just-intonation scale of C major appears as: 
«Graphics ' GraphicsSD ' 

vogelchromat ic justlistof eulerpoints : ={{0 , , 0} , {4 , -1 , -1} , {-3 , 2 , 0} , {1 , 1 , -1} , 
{-2, 0, 1}, {2, -1, 0}, {-5, 2,1}, {-1,1,0}, {3, 0,-1}, {0,-1,1}, {4, -2, OH-3, 1,1}} 
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ScatterPlotSD [vogelchromat ic just list of eulerpoints] 




Let us, now, observe that whichever choice one effects as to the 5 chromatic notes one 
adopts to complete the diatonic just intonation scale of C major one have that, owing the 
the third-comma, fifth cycles don't close so that, a situation anbalogous to the one seen as 
to pytagoric scale occurs. 

It follows that once again the passage from the 12-equally-tempered scale to the just- 
intonation scale may be formalized through the following: 

DEFINITION VIII.68 

JUST INTONATION ANSATZ: 

Zi2 ^ 2*2^'"'*^ (8.169) 

where: 

_ ^j.j(n) {just ^i^i^... 12 , n e N} (8.170) 



i(") 

J 12 



{ord{{scale{Vref, 3))i2*n+l,12*n+ll)i+l (8.171) 



where the note [i] is the new note obtained by [i\ 12 after n turns of the fifths ' cycle, 

defined by the conditions: 



133 



p^^.j(n+i)0«.t)^ _ p^li^i^Uust)^ + Kt Vn e N, i = 0, 



11 



(8.172) 



—tuned 
Euler 



(8.173) 



The just intonation ansatz may be also represented by the following change of musical 
notation : 



C 
C" 
D 

E- 
F 

G 

Qi 

A 
B 



just 


■ — 


^{^just 


(8.174) 


just 




L-'-Ji2 


(8.175) 


just 






(8.176) 


just 




j-gj (n) just 


(8.177) 


just 






(8.178) 


just 






(8.179) 


just 






(8.180) 


just 


^Y'^ (™) just 




(8.181) 


just 


|-gj (™) just 




(8.182) 


just 






(8.183) 


just 


_ ^^Q^in)just 




(8.184) 


just 






(8.185) 
(8.186) 



The effect of the just-intonation ansatz in the formalization of Harmony is structurally 
the same that the effect of the pytagoric ansatz. So it will be sufficient to repeat step by 
step the pytagoric footsteps to get the correct just-intonation notions in a straightforward 
way. 

As to our goal, namely to show how these ansatz, required by the Vertical Rules of Tonal 
Harmony in order to obtain the physical consonance of notes, lead to an inconsistence in 
the formalization of Harmony, I will limit myself to take into account simply the pytagoric 
case, every consideration performed being trivially translated to the just-intonation case by 
replacing Kf with Kt etc. 
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In terms of the introduced mathematical staff our goal may be rephrased as the illustration 
of the deficiencies hidden inside AiV^^^ owing to the peculiarity of pytagoric Modulation's 
Theory 

A first obvious consideration is codified by the following: 
Theorem VIII. 7 

ON THE IMPOSSIBILITY OF MODULATING FROM ONE CYCLE TO ANOTHER 
HP: 



X, y G • ■M{tonality[x,n],tonality[y,n] 7^ nEN -.n < mm{maxlevel{x),maxlevel{y)) 
TH: 

A^^^*{toraa/zty[pu;(a;, i), ra], toraa/zty[pw(y, j), n]} = ^ j (8.187) 

PROOF: 

Since: 

pw{x^i) ^^pw{x, j) = (8.188) 

it follows that: 

V^^^{{tonality[pw{x,i),n],tonality[pw{y, j),n]} = (8.189) 

applying the definit ior l VI 1 1 . 6 3l t he thesis immediately follows 
■ 

Example VIII. 11 

IMPOSSIBILITY OF MODULATING AMONG PYTAGORIC C MAJOR SCALES AT 
DIFFERENT CYCLES 
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tonality [pytagoricword[majorword[0] ,2] ,1] = 



{{{0, 2}, {4, 2}, {7, 2}}, {{2, 2}, {5, 2}, {9, 2}}, {{4, 2}, {7, 2}, {11, 2}}, {{5, 2}, {9, 2}, {0, 
2}}, «7, 2}, {11, 2}, {2, 2}}, {{9, 2}, {0,2}, {4, 2}}, {{11, 2}, {2, 2}, {5, 2}}} 

tonality [pytagoricword[majorword[0] ,3] ,1] = 

{{{0, 3}, {4, 3}, {7, 3}}, {{2, 3}, {5, 3}, {9, 3}}, {{4, 3}, {7, 3}, {11, 3}}, {{5, 3}, {9, 3}, {0, 
3}}, {{7, 3}, {11, 3}, {2, 3}}, {{9, 3}, {0,3}, {4, 3}}, {{11, 3}, {2, 3}, {5, 3}}} 

Intersection [{{{0,2}, {4, 2}, {7, 2}}, {{2, 2}, {5, 2}, {9, 2}}, {{4, 2}, {7, 2}, {11, 2}}, {{ 
5, 2}, {9, 2}, {0,2}}, {{7, 2}, {11, 2}, {2, 2}}, {{9, 2}, {0,2}, {4, 2}}, {{11, 2}, {2, 
2}, {5, 2}}} 

,{{{0,3}, {4, 3}, {7, 3}}, {{2, 3}, {5, 3}, {9, 3}}, {{4, 3}, {7, 3}, {11, 

3}}, {{5, 3}, {9, 3}, {0,3}}, {{7, 3}, {11, 3}, {2, 3}}, {{9, 3}, {0,3}, {4, 3}}, {{11, 

3}, {2, 3}, {5, 3}}} ] = {} 

Let us then return to the Hindemith's citation presented in sectior lTTTl i.e.: 

"Anyone who has ever tasted the delights of pure intonation by the continual displacement 
of the comma in string- quartet playing , must come to the conclusion that there can he no 
such thing as atonal music, in which the existence of tone relationship is denied" (cited 
from chapter 4 "Harmony" , section 10 "Atonality and P olytonality" of\^) 

and let us formahze Hindemith's "continual displacement of the comma" inside Pytagoric 
Modulation Theory. 

Our key tools will be the fifth cycle's raising C+ and lowering C_ operators of, respectively, 
definit ior l VI II . 5 2l and definit ior l VI II. 5 3l using them, first of all, to state the following obvious: 

Corollary VIII.4 

M^y\tonality[x,n],tonality[C+{x),n)]} = Vx G (8.190) 

136 



PROOF: 



It is a particular case of theoren JV111.7l ■ 

Raising and lowering the letters of a pytagoric word in different ways one can result to 
pytagoric words whose tonality may be obtained by modulation by the starting one; I will 
call this kind of modulations comma displacement modulations. 

To introduce them it is useful, first of all, to enlarge the mathematical toolbox in the 
following way: given a pytagoric word x = (xi , ■ ■ ■ , x^^^) G S* 



Obviously the operators of definitioi lVIII.69l easilv implemented on computer through the 
following expressions from the notebook of sectiodXl 

cycleraising [pytagoricword_ , i_] : = 

Table [If [n==i,{Part [pytagoricword,n, 1] ,Part [pytagoricword,n,2]+l}, 
Part [pytagoricword,n] ] , {n, 1 , Length [pytagoricword] }] 

cyclelowering [pytagoricword. , i_] : = 

Table [If [n==i , {Part [pytagoricword, n, 1] ,Part [pytagoricword, n, 2] -1} , 
Part [pytagoricword, n] ] , {n, 1 , Length [pytagoricword] }] 

Given two pytagoric words x , y EE*: 
DEFINITION VIII.70 

5 IS A COMMA-DISPLACEMENT OF y y) 

X may be obtained from y applying to it a suitable composition of the operators of 
definitior lVlTL69l 

Given two pytagoric tonalities ti , t2 ^ 
DEFINITION VIII.71 



DEFINITION VIII.69 




(8.191) 
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ti IS A COMMA-DISPLACEMENT OF {h ta): 

3xi,X2 G : ti = tonality [x I, n] , ^2 = tonality[x2,n] ,Xi X2 (8.192) 

The notation adopted in definition IV 111. 70l and definit io ri V 1 1 1 . 7 1 1 is justified by the fact that 
in both cases the fact that comma displacement is an equivalence relation may be easily 
proved. 

DEFINITION VIII.72 

COMMA DISPLACEMENT'S PYTAGORIC MODULATIONS: 

Mp' := {m e W^'itu ta) : h, t^ G T^^* , ti t^] (8.193) 
Example VIII. 12 

A COMMA DISPLACEMENT MODULATION OF C MAJOR 
Given the C major pytagoric word pwi of level zero: 

pwl = pytagoricword[majorword[0] ,0] = 

{{0,0}, {2,0}, {4,0}, {5,0}, {7,0}, {9,0}, {11,0}} 

and that, let's call it obtained by jrwi raising the S*'^ letter: 
pw2=cycleraising[pwl,5] = 

{{0,0}, {2,0}, {4,0}, {5,0}, {7,1}, {9,0}, {11,0}} 

let us introduce their tonalities of first level: 
ptl=tonality [pwl , 1] = 

{{{0, 0}, {4,0}, {7,0}}, {{2,0}, {5,0}, {9,0}}, {{4,0}, {7,0}, {11,0}}, {{5,0}, {9, 0},{0, 
0}}, {{7,0}, {11,0}, {2,0}}, {{9,0}, {0,0}, {4,0}}, {{11,0}, {2,0}, {5,0}}} 

pt2=tonality [pw2, 1] = 

{{{0, 0}, {4,0}, {7,1}}, {{2,0}, {5,0}, {9,0}}, {{4,0}, {7,1}, {11,0}}, {{5,0}, {9, 0},{0, 
0}}, {{7,1}, {11,0}, {2,0}}, {{9,0}, {0,0}, {4,0}}, {{11,0}, {2,0}, {5,0}}} 
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One has that: 

pivotaldegreesintermof degrees [ptl ,pt2] = 
{{2, 4, 6, 7}, {2, 4, 6, 7}} 

so, as to the passage in a neutral environment common to both the involved tonalities, there 
is no problem. 

As to cadences we have, following the definition IVIII.631 to consider as Tcontext'- 
context = 

Table [tonality [pytagoricword[majorword[n] ,0] ,1] ,-[n,0,ll}] = 

{{{{0, 0}, {4,0}, {7,0}}, {{2,0}, {5,0}, {9,0}}, {{4,0}, {7,0}, {11,0}}, {{5,0}, {9, 0},{ 
0,0}}, {{7,0}, {11,0}, {2,0}}, {{9,0}, {0,0}, {4,0}}, {{11,0}, {2,0}, {5, 

0}}},{{{1,0},{5,0},{8,0}},{{3,0},{6,0},{10,0}},{{5,0},{8,0},{0,0}},{{ 

6,0}, {10,0}, {1,0}}, {{8,0}, {0,0}, {3,0}}, {{10,0}, {1,0}, {5,0}}, {{0,0}, {3, 

0}, {6,0}}}, {{{2,0}, {6,0}, {9,0}}, {{4,0}, {7,0}, {11,0}}, {{6,0}, {9, 0},{1, 

0}}, {{7,0}, {11,0}, {2,0}}, {{9,0}, {1,0}, {4,0}}, {{11,0}, {2,0}, {6, 0}},{{1, 

0}, {4,0}, {7,0}}}, {{{3,0}, {7,0}, {10,0}}, {{5,0}, {8,0}, {0,0}}, {{7,0}, {10, 

0}, {2,0}}, {{8,0}, {0,0}, {3,0}}, {{10,0}, {2,0}, {5,0}}, {{0,0}, {3,0}, {7, 

0}},{{2,0},{5,0},{8,0}}},{{{4,0},{8,0},{11,0}},{{6,0},{9,0},{1,0}},{{ 

8,0}, {11,0}, {3,0}}, {{9,0}, {1,0}, {4,0}}, {{11,0}, {3,0}, {6,0}}, {{1,0}, {4, 

0}, {8,0}}, {{3,0}, {6,0}, {9,0}}}, {{{5,0}, {9,0}, {0,0}}, {{7,0}, {10,0}, {2, 
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0}}, {{9,0}, {0,0}, {4,0}}, {{10,0}, {2,0}, {5,0}}, {{0,0}, {4,0}, {7,0}}, {{2, 

0}, {5,0}, {9,0}}, {{4,0}, {7,0}, {10,0}}}, {{{6,0}, {10,0}, {1,0}}, {{8, 0},{ 



11, 0}, {3,0}}, {{10,0}, {1,0}, {5,0}}, {{11,0}, {3,0}, {6,0}}, {{1,0}, {5, 0},{ 

8,0}}, {{3,0}, {6,0}, {10,0}}, {{5,0}, {8,0}, {11,0}}}, {{{7,0}, {11,0}, {2, 

0}}, {{9,0}, {0,0}, {4,0}}, {{11,0}, {2,0}, {6,0}}, {{0,0}, {4,0}, {7,0}}, {{2, 

0}, {6,0}, {9,0}}, {{4,0}, {7,0}, {11,0}}, {{6,0}, {9,0}, {0,0}}}, {{{8, 0},{0, 

0}, {3,0}}, {{10,0}, {1,0}, {5,0}}, {{0,0}, {3,0}, {7,0}}, {{1,0}, {5,0}, {8, 

0}},{{3,0},{7,0},{10,0}},{{5,0},{8,0},{0,0}},{{7,0},{10,0},{1,0}}},{{{ 

9,0}, {1,0}, {4,0}}, {{11,0}, {2,0}, {6,0}}, {{1,0}, {4,0}, {8,0}}, {{2,0}, {6, 

0}, {9,0}}, {{4,0}, {8,0}, {11,0}}, {{6,0}, {9,0}, {1,0}}, {{8,0}, {11,0}, {2, 

0}}}, {{{10,0}, {2,0}, {5,0}}, {{0,0}, {3,0}, {7,0}}, {{2,0}, {5,0}, {9, 0}},{{ 

3, 0}, {7,0}, {10,0}}, {{5,0}, {9,0}, {0,0}}, {{7,0}, {10,0}, {2,0}}, {{9, 0},{0, 

0}, {3,0}}}, {{{11,0}, {3,0}, {6,0}}, {{1,0}, {4,0}, {8,0}}, {{3,0}, {6,0}, {10, 

0}}, {{4,0}, {8,0}, {11,0}}, {{6,0}, {10,0}, {1,0}}, {{8,0}, {11,0}, {3, 0}},{{ 
10,0}, {1,0}, {4,0}}}} 

respect to which the pytagoric tonahty pt2 seems not to have has cadences: 

cadencesintermof degrees [pt2 , 3 , context] = 

{} 

So is seems to be impossible to comma-modulate from ptl to pt2. 
An analogous situation occurs if pw2 is defined as: 

pw2 := C+(pwi,i) i = l,2,3,4 (8.194) 
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The situation is, anyway, different for i = 6: 



pw2=cycleraising[pwl,6] = 

{{0,0}, {2,0}, {4,0}, {5,0}, {7,0}, {9,1}, {11,0}} 
pt2 =tonality [pw2, 1] = 

{{{0, 0}, {4,0}, {7,0}}, {{2,0}, {5,0}, {9,1}}, {{4,0}, {7,0}, {11,0}}, {{5,0}, {9, 1},{0, 
0}}, {{7,0}, {11,0}, {2,0}}, {{9,1}, {0,0}, {4,0}}, {{11,0}, {2,0}, {5,0}}} 

pivotaldegreesintermof degrees [ptl ,pt2] = {{1,3, 5, 7}, {1,3, 5, 7}} 

cadencesintermof degrees [pt2 , 2 , context] = 

{{7}, {1,7}, {3, 7}, {5, 7}, {7,1}, {7, 3}, {7, 5}, {7, 7}} 

so that {{{11,0}, {2,0}, {5,0}}, {{11,0}, {2,0}, {5,0}}} e 
For i=7, anyway comma-modulation return to be impossible: 

pw2=cycleraising[pwl,7] = 

{{0,0}, {2,0}, {4,0}, {5,0}, {7,0}, {9,0}, {11,1}} 

pivotaldegreesintermof degrees [ptl ,pt2] = 
{{1,2, 4, 6}, {1,2, 4, 6}} 

cadences [pt2, 2, context] = {} 

The possibility of performing the Hindemith's comma-displacement not only in terms of 
the melody but at an harmonically structurally consistent way occurs, as we have empirically 
evidentiated, with very low frequency. 

Remark VIII.4 

THE STRUCTURAL INCONSISTENCE OF TONAL HARMONY VERSUS MEYER- 
EPPLER'S VALENCE THEORY 
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Since Q is dense in M: 

card{{x G (M - Q) : n < x < = Ni Vri , r2 G Q, n < r2 (8.195) 

one could be led to think that the structural problem shown in this work is silly at on a 
physical ground in that, concretelly, Phychoacustics have tought to us that human hear 
cannot distinguish notes uj and uj + e nearer that a certain bound epsilon. 

Such a phenomenon has been formalized by Werner Meyer-Eppler though his Valence 
Theory based on the following (cfr. the section B.2. " Discriminating Tones: Werner Meyer 
Eppler's Valence Theory" of |9]): 

given two sonor signals Si and S2 and a predicate P about sounds: 

DEFINITION VIII.73 

si IS METAMERE TO sa W.R.T. P ( si ~p sa) 

Si cannot be distinguished by S2 w.r.t. to P by human listeners. 

DEFINITION VIII.74 

VALENCE OF si W.R.T. P (P- VALENCE OF si) 

~p Si := {s2 : Si r^p S2} (8.196) 

Identified a suitable set of predicates {Pi} relevant as to sonor signal distinguishing, one 
considers as basic theoretical objects of Acoustics the valences w.r.t. to /\^ Pi 

In particular it may be proved that infinite just-intonation Euler notes belong to the same 
/\. Pj-valence. 

As correctly stressed by Mazzola, the key bug of Meyer- Eppler's Valence Theory consists 
in that the relation ~p is not an equivalence relation lacking both of the reflexive and, the 
more important point, of the transitive property. 

In a less general context in which only sounds are taken into account and considering the 
valence of them with respect to the predicate 

P{u) := « z/ G (z/ - ^ , z/ + ^) » (8.197) 

one could think that, making in the definitior lVII.H definitior lVII.3l and definition IVII.6t the 
following: 
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DEFINITION VIII.75 



P- VALENCE ANSATZ: 



N 



N 



'Kronecker 



Kronecker 



(8.198) 



i=l 



where: 



Kronecker 




1, if \uj\ < e 
0, otherwise 



(8.199) 



any claimed formal inconsistence of Tonal Harmony disappears. 

This is not true since the structural problems concerning the extreme difficulty of making 
pytagoric modulations ,and specifically comma-modulation since any pytagoric modulation 
may be though as the composition of an "ordinary" modulation followed by a comma- 
modulation), that I have shown in the simple example I V 1 1 1 . 1 21 are the effect of a structural 
problem. 

And iterating the comma-displacements, for the level of degree that it is possible not only 
at a melodic but at an harmonic level, differences lying inside the same P- valence accumulate 
producing disasters as the (eventual) readers can concretelly compute using the notebook 



ofEl 
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APPENDIX A: THE MATHEMATICA'S NOTEBOOK MATHEMATICAL MU- 
SIC TOOLKIT 

Mathematical Music Toolkit (\ [Alpha] -version - 8/2/2004 at 18:10) 
ln[l]:= Off [General: :spelll] ; In[2] : = 
«DiscreteMath'Combinatorica' ; In [3] : = 
«DiscreteMath' Permutations' In [4] : = 
«DiscreteMath'KroneckerDelta' In [5] : = 

putinorder [listof numbers.] : =Permute [listof numbers , Ordering [listof numbers] ] 
In[6]:= \!\(\( (*\(**\ "\<generalizedselect [1, predicate ,y] \>"\)\ 
picks\ out\ all\ 

elements\ e\_i\ of\ the\ list\ 1\ for\ which\ the\ binaryX predicateX 
predicate [e\_i , y]\ is\ True\ ***) \n (* 
\(**\ N\) . B . 

\( : \ sinceX the\ instruction\ is\ implemented\ throwing\ away\ 
elementsX of\ pattern\ String\ \ the\ list\ 1\ must\ not\ to\ 

contain 

\ \(\(strings\ !!\)!\)\)\ ***) \ \)\) 
In [7] := generalizedselect [1_, predicate., y_] := 
DeleteCases [ 

Table [If [predicate [Part [1 , i] ,y] ,Part [l,i] ."throw 
away"] ,{i, 1, Length [1] }] , 
x_String] 

In[8] := (*** harmonic [nu,n] gives the n-th harmonic of the note nu 
***) In[9] := harmonic [nu_,n_] :=(n+l)*nu In[10] := (*** 
scalerange [nu] gives the scale-range of the note nu ***) In[ll] := 
scalerange [nu_] :=Interval [{nu, harmonic [nu, 1] }] In[12] := (*** 
rescalingtororange [nu,mu] rescales the note mu to the scale- 
range of the note nu ***) 
In[13] := \ ! \ (rescalingtorange [nu_, mu_] := \ 
If [mu\ < \ nu, \n\ \ \ \ 
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mu*\ 2\~IntegerPart[\(Log[nu] - Log[inu] \)\/Log[2] + 1] , \ 

If [mu > 2 nu, \ninu*2\'"\(-IntegerPart [\(Log[mu] - 
Log[nu]\)\/Log[2]]\), 

\n"\<undefined\>"]]\) 
In [14] := multiplication [nu_ ,ratio_] :=ratio*nu In [15] := 

multiplicationf ornesting[list_] : ={multiplication [Part [list, 1] ,Part [list, 2]] , 

Part [list, 2]} 
In [16] := scaleatf ixedinterval [nu_,ratio_,n_] := 
Prepend [Table [ 

rescalingtorange [nu, 

Part [Nest [multiplicationf ornesting,{nu, ratio}, i] , 1] ] ,{i , 1 ,n}] ,nu] 
In [17] := orderedscaleatf ixedinterval [nu_,ratio_,n_] := 

put inorder [scaleatf ixedinterval [nu , ratio , n] ] 
In [18] := (*** ref erencenote is the absolute reference note as 
given by a suitable 
diapason ***) 

In [19]:= referencenote= 132; In[20] := \!\( (*\(**\ the\)\ 
followingX instructionsX implements\ the\ musical\ 

alphabetX Z\_12\ ***) \) 
In[21]:= letter [n_] :=Mod[n, 12] In[22] : = 

alphabet=Table [letter [n] ,{n, 0,11}] ; In[23] := \!\(\( (*\(**\ the\)\ 
followingX instructionsN introduceX the\ conversion\ 

among\ the\ the\ musical\ alphabet\ Z\_12\ and\ the\ notes\ of\ the\ 
12 - equallyX temmperedX chromatic\ scale\ of\ ref erencenote; \ 
wordsX in\ Z\_12\ correspondsX to\ Allen\ Forte' s\ notion\ of\ pitch - 
class - set\ ***) \ \ \)\) 
In [24] : = \ ! \ (FROMletterTOnote [n_] : = 
ref erencenote*2\''\ (letter [n] \/12\) \) In [25] : = 
FROMwordTOscale [word.] : = 

Table [FROMletterTOnote [Part [word , i] ] , {i , 1 , Length [word] }] 
In [26] := (*** a musical piece is a list each element of which is 
itself a list of two 
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elemente: as note and its duration ***) 
In [27] := 

FROMscaleTOpiece [scale_] :=Table [{Part [scale, i] , crotchet}, {i , 1 , Length [scale] }] 

In [28] : = 

FROMpieceTOscale [piece_] : =TabIe [Part [piece , i , 1] , {i , 1 , Length [piece] }] 
In [29] := (*** the following instructions implement the two 
operation of translation 

and inversion at the basis of atonal music as well as the relative 

tests ***) 
In [30] : = 

translation[word_,n_] :=Table [Mod [Part [word, i] +n, 12] , {i , 1 , Length [word] }] 
In [31] := translationequivalenceofwordsQ [wl_,w2_] := 

Not [Equal [Table [Equal [w2 , translation [wl , n] ] , {n , , 11}] , Table [False , { 12}] ] ] 
In [32] : = 

inversion [word_] :=Table [Mod[12-Part [word,i] ,12] ,{i,l, Length [word]}] 
In [33] : = 

inversionequivalenceof wordsQ [wl_ ,w2_] : =Equal [wl , inversion [w2] ] 
In [34] := inversioninvarianceof awordQ [w_] :=Equal[w, inversion [w]] 
In[35]:= \!\(\( (*\(**\ mode[word, i]\)\ gives\ the\ i - 

th\ mode\ of\ a\ words\ on\ the\ musicalX alphabet\ \ \ Z\_12\ ***) \ 

\)\) 

In[36] := mode [word_ , i_] :=RotateLeft [word, i-1] ; In[37] := (*** the 
following instructions introduces the most used words in Music 
***) In [38] := 

majorword[0] :={letter[0] , letter [2] .letter [4] .letter [5] .letter [7] , letter [9] , 

letter [11]} 
In [39] : = 

maj orword [n_] :=If [n==0,majorword[0] , translation [majorword[0] ,n]] 
In [40] : = 

minorword[0] :={letter[0] , letter [2] .letter [3] .letter [5] .letter [7] .letter [8] . 

letter [10]} 
In [41] : = 
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minorword [n_] :=If [n==0,ininorword[0] , translation [ininorword[0] ,n]] 
In [42] : = 

harmonicminorwordCO] :={letter[0] .letter [2] .letter [3] .letter [5] .letter [7] , 

letter [8] .letter [11]} 
In [43] := harmonicminorword[n_] : = 

If [n==0.harmonicininorword[0] ,trcinslation[harmoniciiiinorword[0] .n] ] 
In [44] := 

dorianword [0] : =Mod [translation [mode [majorword[0] ,2] ,-2] .12] 
In [45] := 

dorianword [n_] :=If [n==0, dorianword [0] .translation [dorianword [0] .n]] 
In [46] := 

phrigianword [0] :=Mod [translation [mode [majorword[0] .3] ,-4] .12] 
In [47] := 

phrigianword [n_] :=If [n==0,phrigianword[0] .translation [phrigianword [0] .n]] 
In [48] := 

lydianword [0] : =Mod [translation [mode [majorword[0] ,4] ,-5] .12] 
In [49] : = 

lydianword [n_] :=If [n==0. lydianword [0] .translation [lydianword [0] .n]] 
In [50] := 

mixolydianword [0] : =Mod [translation [mode [majorword[0] .5] .-7] .12] 
In [51] := mixolydianword [n_] := 

If [n==0. mixolydianword [0] .translation [mixolydianword [0] .n]] 
In [52] : = 

locrianword[0] : =Mod [translation [mode [majorword[0] .7] .-11] .12] 
In [53] := 

locrianword[n_] :=If [n==0.1ocrianword[0] . translation [locrianword [0] .n]] 
In [54] := 

tziganminorword[0] :={letter[0] .letter [2] .letter [3] .letter [6] .letter [7] , 

letter [8] .letter [11]} 
In [55] := tziganminorword [n_] := 

If [n==0 . tziganminorword [0] .translation [tziganminorword [0] .n]] 
In [56] := 
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jewishword[0] :={letter[0] , letter [1] .letter [4] .letter [5] .letter [7] .letter [8] . 

letter [10]} 
In [57] := 

jewishword [n_] :=If [n==0, jewishword[0] .translationEjewishwordEO] .n]] 
In [58] : = 

indianword [0] :={letter[0] . letter [1] .letter [4] .letter [5] .letter [7] .letter [8] . 

letter [11]} 
In [59] := 

indianword [n_] :=If [n==0 , indianword [0] .translation [indianword [0] .n]] 

In [60] : = 

majorpentatonicword[0] :={letter[0] .letter [2] .letter [4] .letter [7] .letter [9]} 
In [61] := majorpentatonicword[n_] := 

If [n==0.inajorpentatonicword[0] . translation [majorpentatonicword[0] ,n]] 
In [62] := ininorpentatonicword[0] : = 

Mod [translation [mode [maj orpentatonicword [0] . 6] . -9] . 12] 
In [63] := iiiinorpentatonicword[n_] : = 

If [n==0.minorpentatonicword[0] . translation [minorpentatonicword[0] .n]] 
In [64] := 

bluesword[0] :={letter[0] .letter [3] .letter [5] .letter [6] .letter [7] .letter [10]} 
In [65] := 

bluesword [n_] :=If [n==0.bluesword[0] . translation [bluesword[0] .n]] 
In [66] : = 

esatonalword [0] :={letter[0] .letter [2] .letter [4] .letter [6] .letter [8] . 

letter [10]} 
In [67] := 

esatonalword [n_] :=If [n==0. esatonalword [0] .translation [esatonalword [0] ,n]] 
In [68] := 

augment edword[0] :={letter[0] .letter [3] .letter [4] .letter [7] .letter [8] . 

letter [11]} 
In [69] := 

augment edword[n_] :=If [n==0.augmentedword[0] , translation [augmentedword[0] ,n]] 
In [70] := 
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halfwholediminishedwordEO] :={letter[0] , letter [1] .letter [3] , letter [4] , 

letter [6] , letter [7] , letter [9] , letter [10] } 
In [71] := half wholediminishedword [n_] := 
If [n==0, half wholediminishedword [0] , 

translation [half wholediminishedword [0] , n] ] 
In [72] := 

wholehalfdiminishedword[0] :={letter[0] , letter [2] .letter [3] .letter [5] , 

letter [6] .letter [8] .letter [9] .letter [11]} 
In [73] := wholehalf diminishedword [n_] := 
If [n==0, wholehalf diminishedword [0] , 

translation [wholehalf diminishedword [0] .n] ] 
In [74] : = 

wholetonediminishedword[0] :={letter[0] , letter [1] .letter [3] .letter [4] . 

letter [6] .letter [8] .letter [10]} 
In [75] := wholetonediminishedword [n_] := 
If [n==0, wholetonediminishedword [0] , 

translation [wholetonediminishedword [0] .n] ] 
In [76] : = 

bebopmaj orword [0] :={letter[0] .letter [2] .letter [4] .letter [5] .letter [7] , 

letter [8] .letter [9] .letter [11]} 
In [77] := bebopmaj orword [n_] := 

If [n==0. bebopmaj orword [0] .translation [bebopmaj orword [0] .n]] 
In [78] : = 

bebopdominant [0] :={letter[0] .letter [2] .letter [4] .letter [5] .letter [7] . 

letter [9] .letter [10] .letter [11]} 
In [79] := bebopdominantword [n_] := 

If [n==0. bebopdominantword [0] .translation [bebopdominantword [0] .n] ] 
In [80] := chromaticword[0] :=alphabet In [81] : = 

chromaticword [n_] : =If [n==0 , chromaticword [0] , trainslation [chromaticword [0] 
In [82] := (*** randomword [n] gives a pseudo- 
random word on the musical alphabet of length n ***) 
In[83] := randomword [n_] :=Table [letter [ Random [Integer. {0. 11}] 
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],{i,l,n}] In[84] := (*** words[n] is the list of all the words of 
length n in lexicographic 
ordering ***) 

In[85] := words [n_] :=Strings [chromaticwordCO] ,n] In[86] := 
nonrepetitiveQ : = 
Equal [Table [ 

If [Equal [Part [1 , i] , Part [1 , j ] ] , 1 , 0] , {i , 1 , Length [1] } , { j , 1 , Length [1] }] , 

Identity-Matrix [Length [1] ] ] 
In[87] := nonrepetitivewords [n_] :=Select [words [n] .nonrepetitiveQ] 
In[88] := (*** "wordsupto [n] " is the list of all the words of 
length less or equal to n 

in lexicographic ordering ***) 
In [89] : = 

wordsupto [n_] :=If [n==l, words [1] , Join [wordsupto [n-1] , words [n]]] 
In[90] := (*** " subwords [x] " gives the list of all the sub- 
words of the word x in lexicographic ordering ***) 
In[91] := subwords [x_] : =LexicographicSubsets [x] In[92] := (*** 
"word[n]" gives the n"th word in global lexicographic ordering 

(*** N.B.: up to now it is defined only for n < 16 ***) 
In [93] := word [n_] :=Part [wordsupto [15] ,n] In[94] := (*** 
"locallexicographicnumber [x] " gives the local lexicographic 
number of 

the word x, 

i.e. the lexicographic number of x w.r.t. to the set of the words having 
the same length of x ***) 
In [95] := 

locallexicographicnumber [x_] :=Part [Flatten [Position [words [Length [x]] ,x]] ,1] 
In[96] := (*** "globallexicographicnumber [x] " gives the global 
lexicographic number of 
the word x, 

i.e. the lexicographic number w.r.t. to the set of the words of any 
length ***) 
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In [97] := globallexicographicnumber [x_] := 

If [Length [x] ==1 , locallexicographicnumber [x] , 

Length [wordsupto [Length [x] -1] ] +locallexicographicnumber [x] ] 
In[98] := (*** "quasilexicographicnumber [x] " gives the 
quasilexicographic number of 

the word x, 

i.e. the lexicographic number w.r.t. to the set of the words of any length 
considering also the null string ***) 
In [99] := 

quasilexicographicnumber [x_] : =If [x=={} , , globallexicographicnumber [x] +1] 
In[100] := (*** prefix[x,n] is the n-long prefix of the word x ***) 
In[101] := prefix[x_,n_] :=Part[x,Table[i,{i,l,n}]] In[102] := (*** 
prefixes [x] is the list of the prefixes of the word x ***) 
In[103] := prefixes[x_] : =Table [prefix [x,n] ,{n, 1, Length [x]-l}] 
In[104] := (*** prefixQ[x,y] is the predicate stating that x is a 
prefix of y ***) In[105] := prefixQ [x_,y_] :=MemberQ [prefixes [y] ,x] 
In [106] := (*** the following instructions introduced the notes 
without the Mod- 12 

constraint ***) 

In [107]:= c [1] =FROMletterTOnote [0] ; In[108] := c [n_] :=2*c [n-1] 
In[109]:= c\ [Sharp] [l]=FROMletterTOnote[l] ; In[110] : = 
c\ [Sharp] [n_] :=2*c\ [Sharp] [n-1] In [111] := 

d[l]=FR0MletterT0note[2] ; In[112] := d[n_] :=2*d[n-l] In[113] : = 
d\ [Sharp] [1] =FROMletterTOnote [3] ; In [114] := 
d\ [Sharp] [n_] : =2*d\ [Sharp] [n-1] In [115] : = 

e[l]=FR0MletterT0note[4] ; In[116] := e[n_] :=2*e[n-l] In[117] : = 
f [l]=FR0MletterT0FR0MletterT0note[5] ; In[118] := f [n_] :=2*f [n-1] 
In[119]:= f\[Sharp] [l]=FR0MletterT0note[6] ; In[120] : = 
f \ [Sharp] [n_] : =2*f \ [Sharp] [n-1] In [121] : = 

g[l]=FR0MletterT0note[7] ; In[122] := g[n_] :=2*g[n-l] In[123] : = 
g\ [Sharp] [1] =FROMletterTOnote [8] ; In [124] : = 
g\ [Sharp] [n_] : =2*g\ [Sharp] [n-1] In [125] : = 
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a[l]=FR0MletterT0note[9] ; In[126] := a[n_] :=2*a[n-l] In[127] : = 
a\ [Sharp] [1] =FROMletterTOnote [10] ; In [128] : = 
a\ [Sharp] [n_] : =2*a\ [Sharp] [n-1] In [129] : = 

b[l]=FROMletterTOnote[ll] ; In[130] := b[n_] :=2*b[n-l] In[131] : = 
(*** insert the "ref erencetime" ***) In [132] := ref erencetime=4; 
In [133] := seinibreve=l*ref erencetime; In [134] := ininim= 
(1/2) *ref erencetime; In[135] := crotchet= (1/4) *ref erencetime; 
In [136] := quaver=(l/8)*ref erencetime; In [137] := 
semiquaver= ( 1/16) *ref erencetime; In [138] := 
demisemiquaver=(l/32) *ref erencetime ; In [139] : = 
hemidemisemiquaver= ( 1/64) *ref erencetime; In[140] := (*** the 
following instructions introduce the formalism of Euler's musical 

space ***) 
In[141] : = 

eulercoordination[x_List] := 

Product [Power [Prime [i] , Part [x , i] ] , {i , 1 , Length [x] }] 
In [142]:= FROMeulerpointTOnote [eulpoint.List] := 

ref erencenote*2"Part [eulpoint , 1] *3~Part [eulpoint , 2] *5~Part [eulpoint , 3] 
In [143]:= \!\(FROMnoteTOpitch[nu_] := 1200\/Log[2] *Log[nu\/\(\ 
referencenote\)\ ]\) In[144] := \ ! \(FROMpitchTOnote [pitch.] := \ \ 
ref erencenote*Exp [Log [2] \/1200*pitch] \) In [145] : = 
Hprime=Table [Log [Prime [i] ] , {i , 1 , 3}] ; In [146] : = 
\ ! \ (FROMeulerpointTOpitch [eulpoint.List] : = 

1200\/Log[2]*\ Dot [eulpoint , Hprime]\) 
In [147] := 

lastpartisequaltosomethingQ [x_ , something.] : =Equal [Last [x] , something] 

In [148] := rationalsupto [n_] :=Flatten[ 

Table [Rational [i, j] ,{i,0,n},{j ,l,n}] ] In[149] := 

FROMindexTOrational [index_ ,n_] :=Part [rationalsupto [n] , index] 

In [150] := FROMlistofindicesTOlistofrationals [list_,n_] := 

Table [FROMindexTOrational [Part [list.i] ,n] ,{i, 1 .Length [list] }] 
In[151] := FROMnoteTOeulerpoint [nu_,n_] := 
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FROMlistof indicesTOlistof rationals [ 
First [generalizedselect [ 

Flatten [Table [ {{i,j,k}. 

Dot [{Part [ rationalsupto [2] , i ],Part[ rationalsupto [2] , j] , 

Part [ rationalsupto [2] ,k ] },Hprime] } ,{i , 1 , 
Length [ rationalsupto [2] ]},{j ,1, Length [ rationalsupto [2] 

]},{k, 

l,Length[ rationalsupto [2] ]}],2] , 
lastpartisequaltosomethingQ , FROMnoteTOpitch [nu] ] ] ,n] 
In [152] := FROMwordTOlistof eulerpoints [w_] := 

Table [FROMnoteTOeulerpoint [Part [FROMwordTOscale [w] , i] ] , {i , 1 , Length [w] }] 
In[153]:= octaveepoint={ 1,0,0}; In[154] := f ifthpoint={0, 1 ,0}; 
In [155] : = thirdpoint={0 ,0,1}; In [156] : = 

canonicalnotesbasis : ={oct aveepoint , f if thpoint , thirdpoint} 
In [157] := 

canonicalintervalsbasis :={octaveepoint ,f if thpoint-octaveepoint , 

thirdpoint-2octaveepoint} 
In [158] := fifthcomma =-7*octaveepoint+ 12 
* (f if thpoint-octaveepoint) ; In[159] := thirdcomma= 

2*octaveepoint-4*(f if thpoint-octaveepoint )+thirdpoint-2octaveepoint; 
In[160] := gradussuavitatis [n_Integer] := 

1+Suiii[ ( FactorInteger[n] [[i]] [[1]]-!)* Factor Integer [n] [ [i] ][ [2] ] 
{i,l, 

Length [Fact or Integer [n] ] }] 
In[161] := gradussuavitatis [r_Rational] := 
gradussuavitatis [ 

Times [Numerator [r] *Denominator [r] , 

Power [GCD [Numerator [r] , Power [Denominator [r] ,2]] , -1 ]]] 
In[162] := (*** chord [word, i , level] gives the chord of the i- 

th degree of a word at a chosen level ***) 
In [163] := chord [word_,i_,level_] := 
Table [Part [mode [word, i] , 
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If [Mod [2n+l , Length [word] ] ==0 , Length [word] , Mod [2n+l , Length [word] ] ] ] , {n , , 
1+level}] 

In [164] := (*** numberof levels of a word gives the possible chords 
level of that 
word ***) 

In[165] := \ ! \(numbersof levels [word_] := 

1 + IntegerPart[\ (Length [word] - 5\)\/2] - 

\ (\ ( (\ (-1\) ) \) \"Length [word] - 1\) \/2*IntegerPart [Length [word] \/2] \) 

In [166] := (*** the following instructions introduce the basic 
concept of Tonal 
Harmony ***) 
In [167] := 

tonality [word_ , level_] : =Table [chord [word , i , level] , {i , 1 , Length [word] }] 
In[168] := pivotaldegrees [tl_,t2_] :=Intersection[tl,t2] In[169] := 
harmonicwords [t_ ,n_] :=Strings [t,n] In [170] : = 
harmonicwordsupto [t_,n_] := 

If [n==l .harmonicwords [t , 1] , 

Join [harmonicwordsupto [t ,n-l] .harmonicwords [t ,n] ] ] 
In [171] := harmonicwordintermof degrees [t_ , listof degrees.] : = 

Table [Part [t ,Part [listof degrees, i] ] ,{i , 1 .Length [listof degrees] }] 
In [172] := 

degreeof achordinatonality [w_ ,t_] :=Part [Flatten [Position [t ,w] ] ,1] 
In[173] := (*** "pivotaldegreesintermof degrees [tl ,t2] " give a list 
of two elements, 

the first being the pivotal degrees of "tl" and "t2" expressed as degrees 
of "tl", the second being the pivotal degrees of "tl" and "t2" expressed 
as degrees of t2" ***) 
In [174] := pivotaldegreesintermof degrees [tl_,t2_] :={ 

Table [degreeof achordinatonality [Part [pivotaldegrees [tl,t2] ,i] ,tl] ,{i,l. 

Length [pivotaldegrees [t 1 , t2] ] }] , 
Table [degreeof achordinatonality [Part [pivotaldegrees [tl ,t2] ,i] ,t2] ,{i,l, 
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Length [pivot aldegrees [t 1 , t2] ] }] } 
In [175] := FROMharmonicwordTOphysicalchord[hw_] := 

Table [FROMwordTOscale [Part [hw , i] ] , {i , 1 , Length [hw] }] 
In [176] : = 

tonalitymembershipQ [hw_ , t_] : =MemberQ [harmonicwords [t , Length [hw] ] , hw] 
In [177] := 

setofthemajortonalities [n_] :=Table [tonality [majorword[i] ,n] ,{i,0,ll}] ; 
In [178] := 

setoftheminortonalities [n_] :=Table [tonality [ininorword[i] ,n] ,{i,0,ll}] ; 
In [179] := setof theclassicaltonalities [n_] := 

Union [setofthemaj ortonalities [n] , setof theminortonalities [n] ] ; 
In [180] := setof thegregoricintonalities [n_] : = 

Flatten [Table [tonality [mode [maj orword [i] , j ] , n] , { j , 1 , 7} , {i , , 1 1}] ,1] ; 
In[181] := inazzolawords:=nonrepetitivewords [7] In[182] : = 
mazzolaword [n_] : =Part [mazzolawords , n] In [183] : = 
setof themazzolatonalities [n_] := 

Table [tonality [Part [mazzolawords , i] ,n] ,{i,l,Length[nonrepetitivewords[7]]}] ; 
In [184] := 

setofthejewishtonalities [n_] :=Table [tonality [jewishword[i] ,n] ,{i,0,ll}] ; 
In [185] : = truthQ [x_] : =Equal [x , True] In [186] : = 
cadenceQ [hw_ , setof tonalities.] : = 
If [Length [ 

Select [Table [ 

tonalitymembershipQ [hw,Part [setof tonalities , i] ] ,{i , 1 , 
Length [setof tonalities] }] , truthQ] ] ==1 , True , False] 
In [187] : = subharmonicwords [hw_] : =LexicographicSubsets [hw] 
In [188] := cadences [t_,n_, setof tonalities.] := 

generalizedselect [harmonicwordsupto [t , n] , cadenceQ , setof tonalities] 
In [189] := cadencesintermofdegrees[t_,n_, setof tonalities.] := 
Table [degreeof achordinatonality [ 

Part [Part [cadences [t ,n, setof tonalities] ,i] ,j] ,t] ,{i,l. 
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Length [cadences [t,n,setof tonalities] ] , 1 , 
Length[ Part [cadences [t,n, setof tonalities] , i] ]}] 
In [190] := 

minimalcadenceQ [hw_ , setof tonalities.] : =And [cadenceQ [hw , setof tonalities] , 

Equal [Table [cadenceQ [prefix[hw,i] , setof tonalities] ,{i , 1 .Length [hw] -1}] , 

Table [False , {Length [hw] -1}] ] ] 
In[191] := minimalcadences [t_,n_, setof tonalities.] : = 

generalizedselect [harmonicwords [t ,n] .minimalcadenceQ, setof tonalities] 
In [192] := minimalcadencesintermof degrees [t_,n_, setof tonalities.] : = 
Table [degreeof achordinatonality [ 

Part [Part [minimalcadences [t ,n, setof tonalities] ,i] ,j] ,t] ,{i,l. 
Length [minimalcadences [t ,n, setof tonalities] ] },{j , 1 , 
Length[ Part [minimalcadences [t ,n, setof tonalities] , i] ]}] 
In [193] := (*** a monodic piece is a list each element of which is 
itself a list of the 

form -[note , duration} ***) 
In[194] := playmonodic [piece_] := 

Do [Play [Sin [piece [ [i] ] [[1]] *2*\[Pi]*t] ,{t,0,piece[[i]] [[2]]}] , {i,l. 
Length [piece] }] 
In [195] := 

playwwordasarpeggio [w_] : =playmonodic [FROMscaleTOpiece [FROMwordTOscale [w] ] ] 
In [196] := playwordaschord [w_ ,time_] := 

Play [Sum [Sin [Part [FROMletterTOnote [w] , i] *2*\ [Pi] *t] , {i , 1 , Length [w] }] , {t , , 
time}] 

In [197] := playharmonicword[hw_,time_] := 

Do [playwordaschord [Part [hw,i] ,time] ,{i, 1, Length [hw]}] 
In [198] := (*** a polyphonic piece is a list each element of which 
is itself a list of 

the form {word .duration} ***) 
In [199] := playpolyphonic [piece_] := 

Do [playwordaschord [piece [ [i] ] [ [1] ], piece [ [i] ] [[2]]] , {i,l, Length [piece]}] 
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In [200] := translationofharmonicword[hw_,n_] := 

Table [translation [Part [hw,i] ,n] ,{i, 1, Length [hw] }] 
In [201] := 

inversionof harmonicword [hw_] : =Table [inversion [Part [hw, i] ] ,-[i , 1 .Length [hw] }] 
In [202] := translationequivalenceofharmonicwordsQ [hwl_,hw2_] := 
And [Length [hwl] ==Length [hw2] , 
Equal [Table [ 

translat ionequivalenceof wordsQ [Part [hwl , i] , Part [hw2 , i] ] , {i , 1 , 
Length [hwl] }] , Table [True , {Length [hwl] }] ] ] 
In [203] := inversionequivalenceof harmonicwordsQ [hwl_ ,hw2_] := 
And [Length [hwl] ==Length[hw2] , 
Equal [Table [ 

inversionequivalenceof wordsQ [Part [hwl , i] , Part [hw2 , i] ] , {i , 1 , 
Length [hwl] }] , Table [True , {Length [hwl] }] ] ] 
In [204] := inversioninvarianceof anharmonicwordQ [hw_] := 

Equal [Table [inversioninvarianceof awordQ [Part [hw, i] ] , {i , 1 , Length [hw] }] , 
Table [True , {Length [w] }] ] 
In [205] : = stepalongf if thscycle [n_] : =Mod [n+7 , 12] In [206] : = 
f ifthscycle=NestList [stepalongf ifthscycle,0, 12] ; In [207] := 
modulation [hwl_ ,hw2_ , tl_ , t2_ ,np_ , cad2_ , setof tonalities.] : = 
If [ Not [tonalitjrmembershipQ [hwl ,tl] ] , False, 
If [ Not [tonalitymembershipQ [hw2 , t2] ] , False , 

If [Not[MeinberQ[pivotaldegrees[tl,t2] ,np ]] , False, 

If [Not [MemberQ [cadences [t2, Length [np] , setof onalities] ,cad2]] .False, 
Join [hwl , np , cad2 , hw2] ] ] ] ] 
In [208] := Mazzolamodulator [tl_,t2_] := 

If [translationequivalenceof harmonicwordsQ [tl ,t2] , 
If [inversioninvarianceof anharmonicwordQ [tl] , 
letter [n_] 

\ [Rule] inversion [translation [ letter [n_] , Part [t2 , 1] -Part [tl , 1] ] ] , 
letter [n_] \ [Rule] translation [ letter [n_] , Part [t2, 1] -Part [tl , 1] ] , 
"undefined"]] 
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In[209] := MazzolamodulationQ[l_,tl_,t2_,n_,setof tonalities.] := 
And [Equal [Part [1 , 1] ,Mazzolamodulator [tl , t2] ] , 

MemberQ [Part [1,2] .mimimalcadentialsets [t ,n, setof tonalities] ] ] 
In[210] := symmetrytransf ormation[g_] :=Rule [x_,g[x]] In[211] : = 
symmetricQ [w_ ,g_] :=Equal [w.ReplaceAll [w, symmetrytransf ormat ion [g] ] ] 
In [212] := (*** an arbitarry law of harmony may be always codified 
in terms of a 

predicate concerning tonalities and harmonic words ***) 
In [213] := lawof resolutiononthetonicQ [hw_ ,t_] := 

And [tonalitymembershipQ [hw,t] , Equal [Last [hw] ,Part[t,l]]] 
In [214] := specialtransf ormationrule [n_] := 
Rule [majorword[x_] , ma j orword [x+n] ] In[215] := 

specialinvarianceQ [n_ , lawof harmomyQ_ , argumentsofthelawof harmony ] : = 

Equal [lawof harmonyQ , 

ReplaceAll [lawof harmonyQ [argumentsofthelawof harmony] , 
specialtransf ormationrule [n] ] ] 
In [216] := morethanspecialtransf ormationrule [n_] := 
Rule [mazzolaword [x_] ,mazzolaword [x+n] ] In [217] : = 
morethanspecialinvarianceQ [n_ , lawof harmomyQ_ , 

argumentsofthelawof harmony ] := 

Equal [lawof harmonyQ , 

ReplaceAll [lawof harmonyQ [argumentsofthelawof harmony] , 
specialtransf ormationrule [n] ] ] 
In[218] := generaltransf ormationrule [y_scale] :=Rule [x_scale , y] 
In [219] := 

generalinvariance [lawof harmonyQ , argument softhelawof harmony , y_scale] : = 

Equal [x, ReplaceAll [lawof harmonyQ [argument softhelawof harmony] , 
generaltransf ormationrule [y] ] ] 
In [220] := FROMnoteTOpulsation[nu_] :=Times [nu, Power [2*Pi ,-1] ] 
In [221]:= FROMpulsationTOnote [omega_] : =2*Pi*omega In[222] := 
musicalinstrumentQ [a_] : =Sum [a [n] *a [-n] ,{n,-Infty,+Infty}]< + Infty 
In [223] := (*** a sound may be codified as a list of the form 
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{omega, a} where "omega" is 

a pulsation, while "a" is a musical instrument ****) 
In [224] := FROMpulsationTOsound[omega_, instrument.] := 

If [musicalinstrumentQ [instrument] , {omega, instrument} , "undefined"] 
In[225]:= FROMsoundTOpulsation [sound.] : =Part [sound, 1] In[226] := 
physicalindexofconsonanceof sounds [soundl_ , sound2_] : = 

Sum [KroneckerDelta [n*Part [soundl , 1] +m*Part [sound2 , 1] ] * ( 

Part [soundl , 2] [n]+Part [sound2,2] [m] ) ,{n,-Infty,+Infty},{ 
m,-Infty,+Infty}] 
In [227] : = 

physicalindexof consonanceof pulsation [omegal_ , omega2_ , instrument.] : = 
If [musicalinstrumentQ [instrument] , 

physicalindexof consonanceof sounds [FROMpulsationTOsound [omegal , instrument] , 

FR0MpulsationT0sound[omega2, instrument]] , "undefined"] 
In [228] := commensurabilityQ[omegal_,omega2_] : = 

Equal [ Head [Times [omegal , Power [omega2, -1] ] ] , Rational] 
In [229] := (*** the following instructions implement the pytagoric 
ansatz ***) In[230] := pytagoricletter [i_,n_] :={letter [i] ,n} 
In [231] := pytagoricalphabetuptof if thcycles [m_] := 

Flatten [Table [pytagoricletter [n,j] ,{j ,0,m},{n,0, 11}] ,1] 
In [232] : = FROMpytagoricletterTQnote [x_] : = 

Part [putinorder [ 

Take [scaleatf ixedinterval [ref erencenote,3, 12*Part [x,2] +11] ,-12] ] , 
Part [x,l]+l] 
In [233] := pytagoricscaleuptof if thcycles [m_] := 

Map [FROMpytagoricletterTQnote , pytagoricalphabetuptof if thcycles [m] ] 
In [234] : = 

pytagoricword [w_ ,n_] : =Table [pytagoricletter [Part [w, i] ,n] , {i , 1 ,Length[w] }] 
In[235] := \ ! \(empiricalsimplicitymeasure [r_Rational] := \ 
1\/GCD [Numerator [r] , Denominator [r] ] * 

\ (Numerator [r] + Denominator [r] \) \/\ (Numerator [r] *Denominator [r] \) \) 



159 



In [236] := 

vogelchromat ic justlistof eulerpoints : ={{0 , , 0} , {4 , -1 , -1} , {-3 , 2 , 0} , {1 , 1 , -1} , {-2 , 

0, 1}, {2, -1, 0}, {-5, 2,1}, {-1,1,0}, {3, 0,-1}, {0,-1,1}, {4, -2, OH-3, 1,1}} 
In [237] := cycleraising [pytagoricword_ , i_] := 

Table [If [n==i,{Part [pytagoricword,n, 1] ,Part [pytagoricword,n,2]+l}. 
Part [pytagoricword , n] ] , {n , 1 , Length [pytagoricword] }] 
In [238] := cyclelowering [pytagoricword., i_] := 

Table [If [n==i ,{Part [pytagoricword,n, 1] ,Part [pytagoricword, n, 2] -1}, 
Part [pytagoricword, n] ] ,{n, 1 , Length [pytagoricword] }] 



160 



1. Some useful palette 



Basic words' palette 

Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 

below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 
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web : \protect\vrule widthOpt\protect\href {http : / /www . wolfram . coin}{http : //www . wolf 
email: info@wolfram.com 
phone: +1-217-398-0700 (U.S.) 



Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 



(*NotebookFileLineBreaJ5;Test NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 4116, 117]*) 

(*NotebookOutlinePosition[ 5172, 156]*) (* 

CellTagsIndexPosition[ 5128, 152]*) 

(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox [\(majorword [\ [Select ionPlaceholder] ] \)] }, 

{ 

ButtonBox [\ (minorword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (harmonicminorword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (dorianword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (phrigianword [\ [SelectionPlaceholder] ] \)] } , 

{ 

ButtonBox [\ (lydianword [\ [SelectionPlaceholder] ] \) ] }, 
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{ 

ButtonBox [\ (mixolydianword [\ [SelectionPlaceholder] ] \)] } , 

{ 

ButtonBox [\ (locrianword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (tziganminorword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ ( j ewishword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(majorpentatonicword[\ [SelectionPlaceholder]] \)] }, 

{ 

ButtonBox [\ (minorpentatonicword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (bluesword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(esatonalword[\ [SelectionPlaceholder] ] \)] }, 

{ 

ButtonBox [\ ( augment edword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (half wholediminishedword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (wholehalf diminishedword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (wholetonediminishedword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (bebopmaj orword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (bebopdominant [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (chromaticword [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (randomword [\ [SelectionPlaceholder] ] \) ] } 
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}, 

RowSpacings->0 , 
ColumnSpacings->0 , 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreakWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 

Def aultFormatType->Def ault InputFormatType , 

LineSpacing->{l .25, 0}, 

AutoItalicWords->{} , 

Format Type->InputForm , 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFamily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->441 , WindowSize->{Fit , Fit}, WindowMargins->{{60 , 
Automatic}, {Automatic, 33}}, WindowFrame-> "Palette " , 
WindowElements->{}, WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

Scroll ingOptions->{"PagewiseScrolling"->True} , 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True, CellOpen->True, ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
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0}}, Magnif ication->l ] 



Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 2402, 66, 362, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

CounterIncrements-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 



basic harmonic construction's palette 
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Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu commeind inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : // www . wolfram . com}{http : / /www . wolf 

email: info@wolfrain.com 

phone: +1-217-398-0700 (U.S.) 
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Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 

(*NotebookFileLineBreakTest NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 8129, 231]*) 

(*NotebookOutlinePosition[ 9185, 270]*) (* 

CellTagsIndexPositionE 9141, 266]*) 

(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox [\ (letter [\ [SelectionPlaceholder] ] \) ] , 
ButtonBoxC 

\ (cadences [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (words [\ [SelectionPlaceholder] ] \) ] , 



ButtonBox [ 

\ (cadencesintermof degrees [\ [SelectionPlaceholder] , 

\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (wordsupto [\ [SelectionPlaceholder] ] \) ] , 
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ButtonBox[ 

\ (minimalcadences [\ [SelectionPlaceholder] , 

\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ]\)]}, 

{ 

ButtonBox [\ (nonrepetitivewords [\ [SelectionPlaceholder] ] \) ] , 
ButtonBox[ 

\(minimalcadencesintermof degrees [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ]\)]}, 

{ 

ButtonBox [ 

\ (translation [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ] 
\)], 

ButtonBox [ 

\ (translationof harmonicword [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (inversion [\ [SelectionPlaceholder] ] \)] , 

ButtonBox [\(inversionof harmonicword [\ [SelectionPlaceholder] ] \)] }, 

{ 

ButtonBox [ 

\(translationequivalenceofwordsQ [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ]\)] , 

ButtonBox [ 

\(traiislationequivalenceof harmonicwordsQ [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 
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ButtonBox[ 

\ (inversionequivalenceof wordsQ [\ [SelectionPlaceholder] , 

\[SelectionPlaceholder]]\)] , 

ButtonBox[ 

\ (inversionequivalenceof harmonicwordsQ [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

ButtonBox[ 

\ (inversioninvarianceof awordQ [\ [SelectionPlaceholder] ] \)] , 
ButtonBox[ 

\ (inversioninvarianceof anharmonicwordQ [\ [SelectionPlaceholder] ] 
\)]}, 

ButtonBox[ 

\ (mode [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ] \) ] , 
ButtonBox[ 

\ (Mazzolamodulator [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

ButtonBox[ 

\ (chord [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ]\)] , 

ButtonBox[ 

\ (MazzolamodulationQ [\ [SelectionPlaceholder] , 

\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
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\ [SelectionPlaceholder] , \[SelectionPlaceholder]]\)]}, 

{ 



ButtonBox [ 

\ (tonality [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ] \)] , 



ButtonBox [ 

\ (modulation [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 



ButtonBox [ 

\ (pivotaldegrees [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] 
\)], 



ButtonBox [ 

\ (minimalcadenceQ [\ [SelectionPlaceholder] , 

\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ]\)]}, 

{ 



ButtonBox [ 

\ (harmonicwords [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] 
\)], 

ButtonBox [\ ({\ [SelectionPlaceholder] }\) ] } , 

{ 



ButtonBox [ 

\ (harmonicwordsupto [\ [SelectionPlaceholder] , 
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\[SelectionPlaceholder]]\)] , 
ButtonBox [\ ({\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] }\)] } , 
{ 

ButtonBox [ 

\(harmonicwordintermof degrees [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ]\)] , 

ButtonBox [ 

\({\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] }\) ] } , 

{ 

ButtonBox [ 

\ (tonalitymembershipQ [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ]\)] , 

ButtonBox [ 

\({\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] }\) ] } , 

{ 

ButtonBox [ 

\(degreeof achordinatonality [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ]\)] , 

ButtonBox [ 

\({\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] }\) ] } , 

{ 



171 



ButtonBox[ 

\(pivotaldegreesintermof degrees [\ [SelectionPlaceholder] , 

\[SelectionPlaceholder]]\)] , 



ButtonBox[ 

\ ({\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 



, \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] }\)] } , 



ButtonBox[ 

\ (cadenceQ [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ] \) ] , 



ButtonBox[ 

\({\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] }\) ] } 

}, 

RowSpacings->0 , 
ColumnSpacings->0 , 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreakWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 
DefaultFormatType->Def ault InputFormat Type, 
LineSpacing->{l .25, 0}, 
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AutoItalicWords->{} , 

Format Type->InputForm , 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFamily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion->"Microsof t Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->820, WindowSize->{Fit , Fit}, WindowMargins->{{30 , 
Automatic}, {Automatic, 48}}, WindowFrame-> "Palette " , 
WindowElements->{}, WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

Scroll ingOptions->-["PagewiseScrolling"->True} , 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True, CellOpen->True , ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 
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(*NotebookFileOutline Notebook [{ Cell [1710, 49, 6415, 180, 330, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules->"InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

CounterIncrements-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 

basic set of tonalities' palette 

Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 

with a name ending in .nb, then open the file inside the application; 
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* Copy the data starting with the line of stars above to the 

clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 

Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : // www . wolfram . com}{http : / / www . wolf 

email: info@wolfram.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 



(*NotebookFileLineBreakTest NotebookFileLineBreakTest*) 
(*NotebookGptionsPosition[ 2997, 89]*) 

(*NotebookOutlinePosition[ 4053, 128]*) (* 

CellTagsIndexPosition[ 4009, 124]*) 

(*WindowFrame->Palette*) 
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Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox[\(setof themajortonalities [\ [SelectionPlaceholder] ] \)] }, 

{ 

ButtonBox [\ (setof theminortonalities [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\ (setof theclassicaltonalities [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\ (setof thegregoriantonalities [\ [SelectionPlaceholder] ] \)] } , 

{ 

ButtonBox [\ (setof themazzolatonalities [\ [SelectionPlaceholder] ] \) ] } , 
{ 

ButtonBox [\ (setof the jewishtonalities [\ [SelectionPlaceholder] ] \)] } 

}, 

RowSpacings->0 , 
ColuiiinSpacings->0, 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreakWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 
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Def aultFormatType->Def aultlnputFormatType, 

LineSpacing->{l .25, 0}, 

AutoItalicWords->{} , 

Format Type->InputForm, 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFamily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->468, WindowSize->{Fit , Fit}, WindowMargins->{{30 , 
Automatic}, {Automatic, 48}}, WindowFrame-> "Palette " , 
WindowElements->{} , WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

ScrollingOptions->{"PagewiseScrolling"->True}, 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True, CellOpen->True, ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 

you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
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(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 1283, 38, 106, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

Counter Increment s-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 



play palette 



Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 
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* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : / /www . wolfram . com}{http : //www . wolf 

email: info@wolfram.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 



(*NotebookFileLineBreakTest NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 2940, 89]*) 

(*NotebookOutlinePosition[ 3996, 128]*) (* 
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CellTagsIndexPosition[ 3952, 124]*) 

(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBoxCXCplajrmonodic [\ [SelectionPlaceholder] ] \)]} , 

{ 

ButtonBox [\ (playpolyphonic [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (playwwordasarpeggio [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\ (playwordaschord [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\ (playharmonicword [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } 

}, 

RowSpacings->0 , 
ColuinnSpacings->0 , 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules->"InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreak;Within->False , 
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CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 

Def aultFormatType->Def aultlnputFormatType, 

LineSpacing->{l .25, 0}, 

AutoItalicWords->{} , 

Format Type-> InputForm , 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFaiiiily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->413, WindowSize->{Fit , Fit}, WindowMargins->{{90 , 
Automatic}, {Automatic, 18}}, WindowFrame-> "Palette " , 
WindowElements->{} , WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

ScrollingOptions->{"PagewiseScrolling"->True}, 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True, CellOpen->True, ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0, Inherited}, {Inherited, 
0}}, Magnificat ion->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 
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(*CellTagsOutline CellTagsIndex->{} *) 



(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 1226, 38, 90, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

Counter Increments-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 



times'palette 



Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 
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* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu commeind inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style) . 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : / /www . wolfram . com}{http : //www . wolf 

email: info@wolfram.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 

(*NotebookFileLineBreakTest NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 2744, 87]*) 
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(*NotebookOutlinePosition [ 
CellTagsIndexPosition [ 
(*WindowFrame->Palette*) 



3801, 
3757, 



126]*) (* 
122]*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox["seinibreve"] }, 

{ 

ButtonBox ["minim"] } , 

{ 

But t onBox [ " cr ot chet " ] } , 

{ 

But t onBox [ " quaver " ] } , 

{ 

ButtonBox ["semiquaver"] }, 

{ 

ButtonBox ["demisemiquaver"] }, 

{ 

But t onBox [" hemidemi s emiquaver "] } 

}. 

RowSpacings->0 , 
ColumnSpacings->0, 

GridDef aultElement : >Butt onBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreakWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 
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Def aultFormatType->Def aultlnputFormatType, 

LineSpacing->{l .25, 0}, 

AutoItalicWords->{} , 

Format Type->InputForm, 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFamily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->384, WindowSize->{Fit , Fit}, WindowMargins->{{100, 
Automatic}, {Automatic, 33}}, WindowFrame-> "Palette " , 
WindowElements->{} , WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

ScrollingOptions->{"PagewiseScrolling"->True}, 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True, CellOpen->True, ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 

you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
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(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 1030, 36, 122, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

Counter Increment s-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 



Euler space's palette 

Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 
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* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : / /www . wolfram . com}{http : //www . wolf 

email: info@wolfram.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 



(*NotebookFileLineBreakTest NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 3619, 107]*) 

(*NotebookOutlinePosition[ 4675, 146]*) (* 
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CellTagsIndexPosition [ 4631 , 142] *) 

(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox [\ (eulercoordinat ion [\ [SelectionPlaceholder] ] \) ] , 
Butt onBox [ " f if thpoint " ] } , 

{ 

ButtonBox [\ (FROMeulerpointTOnote [\ [SelectionPlaceholder] ] \)] , 
ButtonBox [ " thirdpoint " ] } , 

{ 

ButtonBox [\ (FROMnoteTOpitch [\ [SelectionPlaceholder] ] \) ] , 
ButtonBox ["canonicalnotesbasis "] } , 

{ 

ButtonBox [\ (FROMpitchTOnote [\ [SelectionPlaceholder] ] \) ] , 
ButtonBox ["canonicalintervalsbasis"] } , 

{ 

ButtonBox [\ (FROMeulerpointTOpitch [\ [SelectionPlaceholder] ] \) ] , 
ButtonBox ["f if thcomma"] } , 

{ 

ButtonBox [ 

\(FROMnoteTOeulerpoint [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ]\)] , 
ButtonBox ["thirdcomma"] } , 

{ 

ButtonBox [ 

\(FR0MwordT01istof eulerpoints [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] , 
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ButtonBox[ 

\(gradussuavitatis [\ [SelectionPlaceholder] .Integer] \)] }, 

{ 

ButtonBox ["octaveepoint"] , 
ButtonBox[ 

\ (gradussuavitatis [\ [SelectionPlaceholder] .Rational] \) ] } 

}, 

RowSpacings->0 , 
ColumnSpacings->0 , 

GridDefaultElement:>ButtonBox[ "\\ [Placeholder] "]] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreak;Within->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 

DefaultFormatType->Def ault InputFormat Type, 

LineSpacing->{l .25, 0}, 

AutoItalicWords->{} , 

Format Type->InputForm, 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->Mone , 

FontFamily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
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PageWidth->694, WindowSize->{Fit , Fit}, WindowMargins->{{10, 
Automatic}, {Automatic, 18}}, WindowFrame-> "Palette " , 
WindowElements->{} , WindowFrameElements->"CloseBox" , 

WindowClickSelect->False , 

Scroll ingOptions->{"PagewiseScrolling"->True} , 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True, CellOpen->True, ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 1905, 56, 142, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

Counter Increment s-> " Input " ] 
} ] *) 
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End of Mathematica Notebook file. 



musical relativity's palette 

Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 

sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 
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Mathematica-compatible applications may try to use invalid cache 
data. 



For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : / /www . wolfram . com}{http : //www . wolf 

email: info@wolfrain.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
Wolfram Research. 



(*CacheID: 232*) 



(*NotebookFileLineBreakTest NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 3513, 107]*) 

(*NotebookOutlinePosition[ 4569, 146]*) (* 

CellTagsIndexPosition[ 4525, 142]*) 

(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox [\ (symmetrytransf ormation [\ [SelectionPlaceholder] ] \)] } , 

{ 

ButtonBox [ 

\ (symmetricQ [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ] 
\)]}, 
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{ 



ButtonBox [ 

\ (lawof resolutiononthetonicQ [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (specialtransf ormat ionrule [\ [SelectionPlaceholder] ] \) ] } , 
{ 

ButtonBox [ 

\ (specialinvarianceQ [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\ (morethanspecialtransf ormat ionrule [\ [SelectionPlaceholder] ] \) ] } , 
{ 

ButtonBox [ 

\(morethanspecialinvarianceQ [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (generaltransf ormat ionrule [\ [SelectionPlaceholder] ] \) ] } , 
{ 

ButtonBox ["generalinvariance"] } , 

{ 

ButtonBox [\ (\ [SelectionPlaceholder] _scale\) ] } 

}, 

RowSpacings->0 , 
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ColuinnSpacings->0, 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules->"InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreaiWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 

Def aultFormatType->Def ault InputFormatType , 

LineSpacing->{l . 25, 0}, 

AutoItalicWords->{} , 

Format Type->InputForm , 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NimiberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFamily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->511, WindowSize->{Fit , Fit}, WindowMargins->{{30, 
Automatic}, {Automatic, 48}}, WindowFrame-> "Palette " , 
WindowElements->{}, WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

ScrollingOptions->{"PagewiseScrolling"->True}, 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True , CellOpen->True , ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 
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Cached data follows. If you edit this Notebook file directly, not 

using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 1799, 56, 172, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

CounterIncrements-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 



monodic palette 
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Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : / /www . wolfram . com}{http : //www . wolf 

email: infoOwolfram.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
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Wolfram Research. 



(*CacheID: 232*) 



(*NotebookFileLineBreaiTest 



NotebookFileLineBreakTest*) 



(*NotebookOptionsPosition [ 



8418, 



189]*) 



(*NotebookOutlinePosition [ 



9474, 



228]*) (* 



CellTagsIndexPosition [ 



9430, 



224]*) 



(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox [\ (playmonodic [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\({{\ [SelectionPlaceholder] , \ [SelectionPlaceholder] }}\)]}, 

{ 



ButtonBox [ 



\({{\ [SelectionPlaceholder] , \ [SelectionPlaceholder]}, { 



\ [SelectionPlaceholder] , \ [SelectionPlaceholder] }}\)] } , 



{ 



ButtonBox [ 



\({{\ [SelectionPlaceholder] , \ [SelectionPlaceholder] } , { 



\ [SelectionPlaceholder] , \ [SelectionPlaceholder] } , { 



\ [SelectionPlaceholder] , \ [SelectionPlaceholder] }}\)] } , 
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ButtonBox [ 

\({-[\[SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 



\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }}\)] } , 



ButtonBox [ 

\({-[\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 



\ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }}\)] } , 



ButtonBox [ 

\({{\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 



\ [SelectionPlaceholder]}, { 
\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] }}\)] } , 



ButtonBox [ 

\({-C\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 



\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 
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\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 

{ 



\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }}\)] } , 



ButtonBox [ 

\({{\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 



\ [SelectionPlaceholder]}, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }}\)] } , 



ButtonBox [ 

\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 



\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder]}, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] }}\)] } , 



ButtonBox [ 

\({-[\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 



\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 
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\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 

\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , 



\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] }}\)] } , 



ButtonBox [ 

\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 



\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder]}, { 

\ [SelectionPlaceholder] }, { 
\ [SelectionPlaceholder] }}\)] } , 



ButtonBox [ 

\ ({{\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 
\ [SelectionPlaceholder] 



\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] } , { 

\ [SelectionPlaceholder] }, { 

\ [SelectionPlaceholder] }, { 
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\ [SelectionPlaceholder] , \ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] } , { 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] }}\)] } 

}, 

RowSpacings->0 , 
ColuimSpacings->0, 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules->"InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreaiWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 

DefaultFormatType->Def ault InputFormat Type, 

LineSpacing->{l . 25, 0}, 

AutoItalicWords->{} , 

FormatType->InputForm, 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFainily->" Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->866 , WindowSize->{Fit , Fit}, WindowMargins->{{10, 
Automatic}, {Automatic, 18}}, WindowFrame->"Palette" , 
WindowElements->{}, WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

ScrollingOptions->{"PagewiseScrolling"->True}, 
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ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True, CellOpen->True, ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 



Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 6704, 138, 218, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

CounterIncrements-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 
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notes' palette 

Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 

below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 
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web : \protect\vrule widthOpt\protect\href {http : / /www . wolfram . coin}{http : //www . wolf 
email: info@wolfram.com 
phone: +1-217-398-0700 (U.S.) 



Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 



(*NotebookFileLineBreaJ5;Test NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 3654, 109]*) 

(*NotebookOutlinePosition[ 4709, 148]*) (* 

CellTagsIndexPosition[ 4665, 144]*) 

(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox[\(c[l]\)] , 

ButtonBox [\ (c [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(c\ [Sharp] [1]\)] , 

ButtonBox [\ (c\ [Sharp] [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(d[l]\)] , 

ButtonBox [\ (d [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(d\ [Sharp] [1]\)] , 

ButtonBox [\ (d\ [Sharp] [\ [SelectionPlaceholder] ] \) ] } , 
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{ 

ButtonBox [\ (e [1] \) ] , 

ButtonBox[\(e [\ [SelectionPlaceholder] ] \)] }, 

{ 

ButtonBox[\(f [1]\)] , 

ButtonBox [\ (f [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(f\ [Sharp] [1]\)] , 

ButtonBox [\ (f \ [Sharp] [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(g[l]\)] , 

ButtonBox [\ (g [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(g\ [Sharp] [1]\)] , 

ButtonBox [\ (g\ [Sharp] [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (a [1]\)] , 

ButtonBox [\ (a [\ [SelectionPlaceholder] ] \)] }, 

{ 

ButtonBox [\(a\ [Sharp] [1]\)] , 

ButtonBox [\ (a\ [Sharp] [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\(b[l]\)] , 

ButtonBox [\ (b [\ [SelectionPlaceholder] ] \) ] } 

}, 

RowSpacings->0 , 
ColuinnSpacings->0 , 

GridDefaultElement:>ButtonBox[ "\\ [Placeholder] "]] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
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PageBreakWithin->False , 
GroupPageBreaiWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 

Def aultFormatType->Def ault InputFormatType , 

LineSpacing->{l . 25, 0}, 

AutoItalicWords->{} , 

Format Type->InputForm , 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFamily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion->"Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->334, WindowSize->{Fit , Fit}, WindowMargins->{{80, 
Automatic}, {Automatic, 3}}, WindowFrame-> " Palette " , 
WindowElements->{}, WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

ScrollingOptions->{"PagewiseScrolling"->True}, 
ShowCellBracket->False , CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True , CellOpen->True , ShowCellLabel->False, 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 
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(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 1940, 58, 202, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules->"InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

CounterIncrements-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 



pytagoric palette 



Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 
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To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : / / www . wolfram . com}{http : / / www . wolf 

email: infoOwolfram.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 
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(*NotebookFileLineBrecLkTest NotebookFileLineBreakTest*) 



(*NotebookOptionsPosition [ 



3377, 



105]*) 



(*NotebookOutlinePosition [ 



4433, 



144]*) (* 



CellTagsIndexPosition [ 



4389, 



140]*) 



(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 



{ 



ButtonBox[ 

\ (pytagoricletter [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox[ 

\(pytagoricalphabetuptof if thcycles [\ [SelectionPlaceholder] ] \)] } , 

{ 

ButtonBox[ 

\ (pytagoricscaleuptof if thcycles [\ [SelectionPlaceholder] ] \) ] } , 

{ 



ButtonBox [\ (FROMpytagoricletterTOnote [\ [SelectionPlaceholder] ] \) ] } , 
{ 

ButtonBox [\ (FROMeulerpointTOpitch [f if thcomma] \) ] } , 

{ 

ButtonBox [ 

\ (pytagoricword [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] 
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\)]}, 

{ 



ButtonBox [ 

\ (cycleraising [\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ] 
\)]}, 

{ 

ButtonBox [ 

\ (cyclelowering [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] 
\)]} 

}, 

RowSpacings->0 , 
ColuinnSpacings->0, 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreakWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 

Def aultFormatType->Def ault InputFormatType , 

LineSpacing->{l .25, 0}, 

AutoItalicWords->{} , 

Format Type->InputForm , 

ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 
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FontFamily->"Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion->"Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->504, WindowSize->-[Fit , Fit}, WindowMargins->{{30, 
Automatic}, {Automatic, 48}}, WindowFrame-> "Palette " , 
WindowElements->{}, WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

ScrollingOptions->{"PagewiseScrolling"->True}, 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True , CellOpen->True , ShowCellLabel->False , 
ShowCellTags->False, ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 1663, 54, 138, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 
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CounterIncrements-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 

physical consonance's palette 

Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
clipboard, then use the Paste menu command inside the application. 

Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style) . 
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NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 

below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : / / www . wolfram . com}{http : / / www . wolf 

email: infoOwolfram.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 



(*NotebookFileLineBreakTest NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 3080, 93]*) 

(*NotebookOutlinePosition[ 4136, 132]*) (* 

CellTagsIndexPositionL 4092, 128]*) 

(*WindowFrame->Palette*) 



Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBoxC 
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{ 



\(physicalindexofconsonanceof sounds [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 



ButtonBox [ 

\ (physicalindexofconsonanceof pulsation [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] , \ [SelectionPlaceholder] ]\)]}, 

{ 

ButtonBox [ 

\(commensurabilityQ [\ [SelectionPlaceholder] , 

\ [SelectionPlaceholder] , \ [SelectionPlaceholder] \ ]\)]}, 

{ 

ButtonBox [ 

\ (empiricalsimplicitymeasure [\ [SelectionPlaceholder] .Rational] 
\)]} 

}, 

RowSpacings->0 , 
ColuinnSpacings->0, 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBrecLkWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 
Def aultFormatType->Def ault InputFormatType , 
LineSpacing->{1.25, 0}, 
AutoItalicWords->{} , 
Format Type->InputForm , 
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ScriptMinSize->9 , 

ShowStringCharacters->True , 

NumberMarks->True , 

CounterIncrements->" Input" , 

StyleMenuListing->None , 

FontFaiiiily-> "Courier" , 

FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->569, WindowSize->{324, 71}, WindowMargins->{{Automatic, 
119}, -[Automatic, 13}}, WindowFrame-> "Palette " , 
WindowElements->{}, WindowFrameElements->"CloseBox" , 
WindowClickSelect->False , 

ScrollingOptions->{"PagewiseScrolling"->True}, 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True , CellOpen->True , ShowCellLabel->False, 
ShowCellTags->False , ImageMargins->{{0, Inherited}, {Inherited, 
0}}, Magnif ication->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 
you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 1366, 42, 76, 
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NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules->"InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

CounterIncrements-> " Input " ] 
} ] *) 



End of Mathematica Notebook file. 

form's conversion's palette 

Mathematica-Compatible Notebook 

This notebook can be used on any computer system with Mathematica 
3.0, MathReader 3.0, or any compatible application. The data for 
the notebook starts with the line of stars above. 

To get the notebook into a Mathematica-compatible application, do 
one of the following: 

* Save the data starting with the line of stars above into a file 
with a name ending in .nb, then open the file inside the application; 

* Copy the data starting with the line of stars above to the 
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clipboard, then use the Paste menu command inside the application. 



Data for notebooks contains only printable 7-bit ASCII and can be 
sent directly in email or through ftp in text mode. Newlines can 
be CR, LF or CRLF (Unix, Macintosh or MS-DOS style). 

NOTE: If you modify the data for this notebook not in a 
Mathematica- compatible application, you must delete the line 
below containing the word CachelD, otherwise 

Mathematica-compatible applications may try to use invalid cache 
data. 

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research: 

web : \protect\vrule widthOpt\protect\href {http : / /www . wolfram . com}{http : //www . wolf 

email: info@wolfram.com 

phone: +1-217-398-0700 (U.S.) 

Notebook reader applications are available free of charge from 
Wolfram Research. 

(*CacheID: 232*) 



(*NotebookFileLineBreakTest NotebookFileLineBreakTest*) 
(*NotebookOptionsPosition[ 3856, 112]*) 

(*NotebookOutlinePosition[ 4914, 151]*) (* 

CellTagsIndexPositionE 4870, 147]*) 

(*WindowFrame->Palette*) 
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Notebook [{ Cell [BoxData [GridBox [{ 
{ 

ButtonBox [\ (FROMletterTOnote [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMwordTOscale [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMscaleTOpiece [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMpieceTOscale [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\ (FROMharmonicwordTOphysical chord [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMlistTOcolumnvector [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMcolumnvectorTOlist [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMnoteTOpulsat ion [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMpulsationTQnote [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\ (FROMpuls at ionTO sound [\ [SelectionPlaceholder] , 
\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMsoundTOpulsation [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMnoteTOpitch [\ [SelectionPlaceholder] ] \) ] } , 

{ 
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ButtonBox [\ (FROMpitchTOnote [\ [Select ionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMeulerpointTOpitch [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [\ (FROMnoteTOeulerpoint [\ [SelectionPlaceholder] ] \) ] } , 

{ 

ButtonBox [ 

\ (FROMwordTOlistof eulerpoints [\ [SelectionPlaceholder] ] \)] } 

}, 

RowSpacings->0 , 
ColuiiinSpacings->0, 

GridDef aultElement : >ButtonBox [ "\\ [Placeholder] "] ] ] , NotebookDef ault , 
CellMargins->{{Inherited, Inherited}, {5, Inherited}}, 
Evaluatable->True , 
CellGroupingRules-> " InputGrouping" , 
PageBreakAbove->True , 
PageBreakWithin->False , 
GroupPageBreakWithin->False , 

CellLabelMargins->{{ll , Inherited}, {Inherited, Inherited}}, 
DefaultFormatType->Def ault InputFormat Type, 
LineSpacing->{l . 25, 0}, 
AutoItalicWords->{} , 
Format Type->InputForm, 
ScriptMinSize->9 , 
ShowStringCharacters->True , 
NumberMarks->True , 
CounterIncrements->" Input" , 
StyleMenuListing->None , 
FontFamily->" Courier" , 
FontWeight->"Bold"] 
}, FrontEndVersion-> "Microsoft Windows 3.0", ScreenRectangle->{{0, 
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1024}, {0, 712}}, Editable->False, WindowToolbars->{}, 
PageWidth->497, WindowSize->{252, 261}, 
WindowMargins->{{Automatic, 247}, {Automatic, 117}}, 
WindowFrame->"Palette" , WindowElenients->{}, 
WindowFrameElements->"CloseBox" , WindowClickSelect->False, 
ScrollingOptions->{"PagewiseScrolling"->True}, 
ShowCellBracket->False, CellMargins->{{0, 0}, {Inherited, 0}}, 
Active->True, CellOpen->True, ShowCellLabel->False, 
ShowCellTags->False , ImageMargins->{{0 , Inherited}, {Inherited, 
0}}, Magnif ication->l ] 

Cached data follows. If you edit this Notebook file directly, not 
using Mathematica, you must remove the line containing CachelD at 
the top of the file. The cache data will then be recreated when 

you save this file from within Mathematica. 

(*CellTagsOutline CellTagsIndex->{} *) 
(*CellTagsIndex CellTagsIndex->{} *) 

(*NotebookFileOutline Notebook [{ Cell [1710, 49, 2142, 61, 266, 
NotebookDef ault , 

Evaluatable->True , 

CellGroupingRules-> " InputGrouping" , 

PageBreakAbove->True , 

PageBreakWithin->False , 

CounterIncrements-> " Input " ] 
} ] *) 
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End of Mathematica Notebook file. 
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[1] L. Euler. Tentamen novae theoriae musicae. In E. Bernoulli et al., editor, Opera Omnia, 
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